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CREDIT 
Achetez en décembre 
payez en mars 


Commodore 


LES HITS COMMODORE 

Ace - C/D 

109/150 F 

Acrojet - D 

150 F 

Adventure Cst Set - D 

175 F 

Alley cat - C/D 

99/135 F 

Archon II - C/D 

115/145 F 

Astérix - C/D 

99/150 F 

Batalyx • C/D 

95/135 F 

Batman - C 

95F 

Biggles - C/D 

105/145 F 

Bombjack • C/D 

99/155 F 

Borrowed Time - D 

160F 

Boulder Dash III - C/D 

109/160 F 

Cauldron - C 

89 F 

Cauldron II - C/D 

105/160 F 

Colossus Chess IV - C/D 

105/155 F 

Commando • C/D 

89/135 F 

Crusade in Europe - C/D 

160/205 F 

Danse Macabre - D 

165 F 

Dragon’s Lair • C/D 

99/135 F 

Eidolon - C/D 

105/155 F 

Elite (français) - C/D 

135/185 F 

Empire - C 

105F 

Ghost'n Goblins - C/D 

105/135 F 

Golf Cst set - C/D 

150/165 F 

Goonies - C/D 

105/135 F 

Green Beret - C/D 

89/140 F 

Gyroscope • C/D 

99/150 F 

Hacker II • C/D 

105/145 F 

Hardball • C/D 

00/155 F 

International Karat - C 

79 F 

Karatéka - C 

105 F 

Koronis Rift - C/D 

89/145 F 

Kung fu Master - C/D 

105/145 F 

Leader Board - C/D 

115/160 F 

Legende des Amazones - C 

99F 

Littie Computer People - C/D 

89/145 F 


BON DE COMMANDE : 

à retourner à MICROSTORY 
14, rue de Poissy, 75005 PARIS 


Mandragore - C/D 

235/250 F 

Masquerade - D 

145 F 

Mermaid Madness - C/D 

110/160 F 

Miami Vice - C/D 

99/135 F 

Knight Riders - C/D 

99/165 F 

Paper Boy - C/D 

95/145 F 

Pinball Cst. set - D 

170 F 

Ping-pong - C/D 

89/135 F 

Pitstop II - C/D 

109/155 F 

Questron - D 

150F 

Rambo - C/D 

89/125 F 

Raspoutin - C 

95F 

Revs - C/D 

140/170 F 

RMSTitanic-C/D 

109/160 F 

Road Race - C/D 

105/145 F 

Rocky Horror Show (128) - D 

135 F 

Saboteur - C 

95F 

Shogun - C/D 

105/145 F 

Silent Service - C/D 

115/155 F 

Skyfox - C/D 

110/145 F 

Solo Flight II - C/D 

105/150F 

Sorcery - C 

95F 

SPY VS Spy II - C/D 

110/155 F 

Starship Androméda - C/D 

115/145 F 

Summer games 1 - C/D 

109/155 F 

Summer gammes II - C/D 

95/155 F 

Supercycle • C/D 

105/165 F 

Thaï Boxing (64-128) 

89/135 F 

The Pawn - D 

155F 

They sold a million II - C/D 

105/165 F 

Ultima III - D 

150F 

Ultima IV-D 

185 F 

Uridium - C/D 

99/150 F 

V-C/D 

105/135 F 

Wayofthe Tiger-C/D 

115/155 F 

Winter Games - C/D 

99/155 F 

World Cup Camival - C/D 

109/165 F 

Yie-ar Kung Fu - C/D 

89/125 F 

Zorro - C/D 

89/145 F 


tresse 


-Tel 

commande le matenei suwant 


Je, soussigné, M 


Prénom 


pour la somme totale de 


MICROSTORY 14, RUt Dl POISSY 75005 PARIS 



Amstrad 

LES DERNIERS HITS... 


Astérix - C/D 

N.C. 

1942-C/D 

NX. 

Thanatos - C/D 

NX. 

Fist II - C/D 

99/145 F 

Antiriad - C/D 

NC 

Bobby Bearing - C 

99 F 

Gladiator - C/D 

85/135 F 

Druid • C 

85F 

Galian - C 

89F 

Glider Rider - C/D 

89/145 F 

Grand Prix 500 - C/D 

135/185 F 

Knight Games - C/D 

89/130 F 

Lightforce - C/D 

89/130 F 

Miami Vice - C 

89F 

Knight Riders - C 

89F 

Now Games 3 - C 

99F 

Nomad - C 

85F 

Révolution - C/D 

99/139 F 

Robbot - C/D 

105/145 F 

Supercycle - C 

109 F 

Street Hawk - C 

89F 

Sai Combat - C/D 

89/125 F 

Silent Service - C 

89F 

Samantha Fox - C/D 

95/135 F 

Tomahawk - C/D 

89/125 F 

They sold a million II - C/D 

95F 

They sold a million III - C 

99F 

Ushi Mata - C 

95F 

World Games - C 

109 F 

Infiltrator - C 

N.C. 

Dragon’s Lair - C/D 

NX. 

Fer et Flamme - D 

NX. 

Trivial Poursuite - C/D 

NX. 

MGT-C/D 

120/160 F 

Bactron - C/D 

120/160 F 

Le Pacte - D 

195 F 

Top Secret - D 

215 F 

Le Secret du Tombeau - C/D 

145/175 F 

Rescue on Fractalus - C/D 

89/125 F 


Atari 


Hacker II-C/D 

95/135 F 

Prodigy - C/D 

99/145 F 

Hi-Jack-C/D 

99/145 F 

Xarq-C/D 

99/145 F 

Tempest - C/D 

99/145 F 

Aliens - C/D 

99/145 F 

Mermaid Madness - C/D 

89/125 F 

Affaire Sidney - C/D 

135/175 F 

4ème Protocole - C/D 

175/175 F 

Dandare - C/D 

95/150 F 

Deactivator - C/D 

99/145 F 

Elite français - C/D 

175/225 F 

Leader Board - C 

99F 

Les mines du roi Aquantus - C/D 

99/150 F 

L’héritage II - C/D 

145/175 F 

Maracaibo - C/D 

135/175 F 

Scrabble-C/D 

236/250 F 

Shogun - C/D 

99/150 F 

Skyfox - C/D 

99/150 F 

Biggles - C/D 

95/135 F 

Billie la banlieue - C/D 

120/175 F 

Boulder dash III - C 

85F 

Bridge - C/D a_ 

225/235 F 

Cauldron II - C/D iA 

89/130 F 

Commando - C/D 

85/120 F 

Fairiight - C/D 

105/155 F 

Gold hits-C/D 

105/150 F 

Green beret - C/D 

89/150 F 

Impossible Mission - C/D 

89/165 F 

Infernal runner - C/D 

125/175 F 

Jumpjet - C/D 

75/115 F 

Kung Fu Master - C/D 

99/130 F 

Mission Elevator - C/D 

89/135 h 

Nexus • C/D 

89/130 F 

Paper Boy - C 

89 F 

Ping-Pong - C/D 

85/145 F 

Room Ten - C/D 

85/135 F 

Tennis 3 D - C/D 

125/175 F 

The Way od the Tiger - C/D 

89/125 F 

V-C/D 

89/130 F 

Winter game - C/D 

89/135 F 

Camelot Warriors - C/D 

N.G 


JEUX 

Arena 

330F 

Black Cauldron 

390 F 

Borrowed Time 

255 F 

Brattacas 

330F 

Cards 

199 F 

Chess (Psion) 

N.C. 

Deep Space 

375 F 

.Hacker II 

255 F 

Leader Board 

270 F 

Littie Computer People 

290F 

Major Motion 

199F 

The Pawn 

239 F 

Silent Service 

239 F 

Spiderman 

199 F 

Starghder 

250F 

STProtector 

225F 

ST Karat Vf 

ST Space Station 

Sundoç v 

225 F 
225F 
330F 

Sword of kadasf 

39C F 

Time bandé 

JY0F 

Triogy of Apsha 

350F 

Tnrvty 

NX 

Winter game. 

345 F 
270F 


Arwnator 

299F 

CAD 30 

499 F 

Cambnoge ksp 

1 490 F 

D base il 

1 190 F 

DB master one 

590 F 

Easy draw 

850F 

Haba wrrter II 

895 F 

Kaba view 

750 F 

Laser base 

990F 

Latbce-C 

990F 

Macro-assembleur 

490 F 

Pascal 

790 F 

Megamax - C 

1 590 F 

Music studio 

295F 

TX.T12« 


Frais de port softs 20 F. matenei nous -va* 


Règlement 

chèqueC mandat tMlM 


Signature 


Paint works 370 F 

Printmaster 390 F 

Art gallery 270 F 

Profortran 1 290 F 

VIP 1 890 F 

Plus paint 395 F 

Textomat 450 F 

Datamat 450 F 

Calcomat 450 F 

Système expert 1 590 F 

Fast basic (cartouche) 890 F 




LOGICIELS 
Deluxe Paint 
Deluxe Print 
Aegs Image 
Aeg» Anmator 
Ae^sOraw 
MacSkaio 
MP 

uaceC 
Mec Pascal 
Brxtacas 
SfcyFox 
King Ouest II 
Seven Cities of Gold 
Martel Madness 
Borrowed Time 
Analyse tableur 
De Luxe video 
Instant Music 
Aegis impact 
Assembleur 
True Basic 
Leader BoarC 
Chess Ma» 

The Pa«r 
Arte*» 


890F 
890 F 
790 F 
1 290F 
1 590F 
390 F 
1 990F 
1150F 
890F 
360F 
290F 
NC 
350F 
290F 
255F 
NX. 
NX. 
290F 
NX. 
NX. 
NX. 
NX. 
NC 

rsf 

J*F 

mf 


































DE LISTINGS 


SOMMAIRE 

Tableaux des équivalences 
pour adapter tous les jeux 
à votre micro ordinateur 

4 

AMSTRAD 

Etoiles 

7 

Alpha Bomb 

9 

Chrono Poursuite 

11 

Master Mind 

15 

Turbotron 

16 

Fractales 

18 

Explorer 

19 

Mined in 

20 

Mur 

22 

APPLE» 

Tracourbe 

23 

Formule oubliée 

29 

Minotaure 

34 

Speedway 

39 

Double Haute résolution 

41 

ATARI ST/XL 

Awari 

43 

Jack Pot 

46 

Ski 

47 

Music 

48 

Russe 

50 

Poster 

52 

Minitest 

53 

Tour de l’Atari 

54 

Minutel 

59 

Maître Corbeau 

62 

Llfsting 

64 

COMMODORE 

64/128 

Moto-Cross 

66 

Guerre sous-marine 

69 

Poursuite 

72 

Palais de Haches 

74 

Champ magnétique 

78 

Champs 

80 

Night Mission 

82 

Tarzan 

84 
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88 
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Evasions 

93 
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96 

Instruments 

97 

Uranium 

99 

Double 

103 

Para 

106 
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109 

Bank 

112 

EXL100 

Threat Star 

116 
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120 

Musicorgue 

123 

Clavier bavard 

124 


Formule 1 

129 

MSX 


Break out 

133 

Bombardier 

135 

Bataille navale 

136 

Game 86 

137 

ORIC 


Epidémie 

138 

Master Design 

141 

Zaxxon 

143 

Eddy Lode 

146 

Caterpillar 

149 

Rescue 

152 

Quai des Orfèvres 

154 

Camel’s Battle 

156 

Meteor 

159 

Freeze Bert 

161 
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Compatibles 


Pac Atout 

166 

Tihatak 

168 

Espace Attak 

170 

Otilto 

172 

QL 


Château maudit 

176 

Master Mind 

180 

Le Compte est bon 

182 

Arène 2024 

184 

Worm 

187 

SPECTRUM 


Qix 

188 

Tronix 

190 

Destroyer 

191 

Xogs 

193 

Barrage 

196 

Mine 86 

197 

Caism 

200 

Rads 

206 

Spectdraw 

207 

Pendu 

209 

THOMSON 


Description 

210 

Métallurgiste 

213 

Diskix 

215 

Snake 

217 

Poulailler 

217 

Horticulteur 

219 

Morse 

221 

Puissance 4 

224 

Processeur 

226 

ZX 81 


Introduction au ZX 

228 

421 

231 

Jeu de dés 

234 

Calculs 

235 

Numéroscopie 

237 



SHÛP 


l’espace 
le plus micro 
de Paris !... 


• Le prix : 
garanti le plus bas du marché 

• Le service après vente 

• La formation 

• Le crédit 

• Les facilités de paiement 




• Amstrad 

• Atari 

• Commodore 

• Exelvision 

• MSX - Sony - Philips 

• Téléstrat 

• Thomson 


• Périphériques 

• Imprimantes 

• Logiciels 




pROMOf 


icieis 

isseep 


Plus de 3.000 logiciels 
à prix cassés !!! 



l’espace 
le plus it 


usvnlcro de Paris 


Du lundi au samedi de 9 h 30 à 19 h 

50, rue de Richelieu 75001 Pars - Tél. : (1) 42.96.93.95 • Métro : Palais-Royal 
251, boulevard Raspail 75014 Pans • Tél (1) 43.21.54.45 - Métro : Raspail 




VIDEOSHOP, Département VPC, BP 105, 75749 Paris Cedex 15 
Joindre 3 timbres à 2,20 F. 

Nom - Je désire recevoir 

Prénom _ une documentation sur : 

Adresse . .._ " ' ' _ - , 


Code Postal 
Ville _ 


Je possède 
un micro-ordinateur : 


Ce numéro comporte un encart abonnement 
non folioté entre les pages 2 et 3. 


Téléphone 
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Armuofs 










EQUIVALENCES DES INSTRUCTIONS BASIC 



ORDRES BASIC 


Codes ASCII 
d'ua 

caractère 


Opérateur 

logique 


Sinus 

inversé 


Valeur 

absolue 


Tangente 

inversée 


ORDINATEURS 


APPLE IP 


ATARI 600 XL/800 XL/400/800 


COMMODORE AMIGA 


AUTO 


AMSTRAD 


ORIC ATMOS 


SPECTRUM 


Tl 99/4A 


AUTO 


THOMSON -TO 7 


AUTO 


Chargement 
d’un logiciel 
sur cassette 


ORDRES BASIC 


Renvoie à une 
routine en 
langage machine 


Donne on 
caractère à partir 
du code ASCII 


Nombre 
en double 
conversion 


Chargement 
d’un logiciel 
sur disquette 


Effacement 
des variables 


ORDINATEURS 


CHR5 


LOAD 


LOAD 


APPLE IP 


CALL 


CHR$ 


CLOAD 


LOAD DI 


ATARI 600 XL/800 XL/400/800 


COMMODORE AMIGA 


CALL 


CHR$ 


CDBL 


LOAD 


AMSTRAD 


CALL 


CHR$ 


CLEAR 


LOAD 


LOAD 


FONCTION 
DU DOS 


ORIC ATMOS 


CALL 


CLEAR 


CLOAD 


RAND 

USR 


RANDOMISE 

USR 


SPECTRUM 


TI 99/4 A 


CHRS 


CLEAR 


THOMSON - TO 7 


CHRS 


CDBL 


LOAD 


LOAD 


CHRS 


CDBL 


CLEAR 


LOAD 


LOAD 


ORDRES BASIC 


Suite 

d’exécution 
après stop 


Sanvcgarde 
d’un logiciel 
sur cassette 


Sauvegarde 
d’un logiciel 
sur disquette 


Données 


Couleur 

écran 


Cosinus 


ORDINATEURS 


fichier 


APPLE IP 


CONT 


SAVE 


SAVE 


DATA 


ATARI 600 XL/800 XL/400/800 


CONT 


CSAVE 


SAVE DI 


DATA 


COMMODORE AMIGA 


CONT 


SAVE 


DATA 


AMSTRAD 


CONT 


SAVE 


DATA 


ORIC ATMOS 


CONT 


CSAVE 


DATA 


CONT 


SAVE 


SPECTRUM 


CONTINUE 


SAVE 


DATA 


TI 99/4A 


CONT 


COLOR 


SAVE 


SAVE DS Kl 


DATA 


THOMSON - TO 7 


CONT 


COLOR 


SAVE 


SAVE 


DATA 


CONT 


COLOR 


SAVE 


SAVE 


DATA 


Lignes : 

Conversion 

numérotation 

d’un nbrc bin. 

automatique 

en décimale 





























































































































































































ORDRES BASIC 
ORDINATEURS 

APPLE II* 

ATARI 600 XL/800 XL/400/800 
COMMODORE AMIGA 
AMSTRAD 
OR IC ATMOS 
ZX 81 

SPECTRUM 
Tl 99/4 A 

THOMSON -TO 7 
MSX 1 

ORDRES BASIC 

ORDINATEURS 

APPLE II' 

ATARI 600 XL/800 XL/400/800 

COMMODORE AMIGA 

AMSTRAD 

OR1C ATMOS 

ZX 81 

SPECTRUM 

Tl 99/4A 

THOMSON -TO 7 

MSX 1 

ORDRES BASIC _ 

ORDINATEURS 

APPLE II' 

ATARI 600 XL/800 XL/400/800 
COMMODORE AMIGA 
AMSTRAD 
ORIC ATMOS 
ZX 81 

SPECTRUM 

TI 99/4A 

THOMSON -TO 7 
MSX 1 


ÉQUIVALENCES DES INSTRUCTIONS BASIC 
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EQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Positionne 
le eurseor 
à l’écran 

Impression 

d'un 

caractère 

Impression 
variable num. 
avec formatage 

Génération 
de nombres 
aléatoires 

Lecture des 
data 

Lignes 
ignorées 
par l’ordinatenr 

Initialisation 
des lectures 
de data 

Fin de 

sons 

programme 

ORDINATEURS 

APPLE IP 

HTAB 

V TAB 

PRINT 

- 

RND 

READ 

REM 

RESTORE 

RETURN 

ATARI 600 XL/800 XL/400/800 

POSITION 

PRINT 

- 

RND 

READ 

REM 

RESTORE 

RETURN 

COMMODORE AMIGA 

LOCATE 

PRINT 

PRINT USING 

RND 

READ 

REM 

RESTORE 

RETURN 

AMSTRAD 

LOCATE 

PRINT 

PRINT USING 

RND 

READ 

REM 

RESTORE 

RETURN 

ORIC ATMOS 

1(§> 

PRINT 

- 

RND 

READ 

REM 

RESTORE 

RETURN 

ZX 81 

PRINT AT 

PRINT 

- 

RND 

- 

REM 

- 

RETURN 

SPECTRUM 

PRINT AT 

PRINT 

- 

RND 

READ 

REM 

RESTORE 

RETURN 

TI 99/4A 

- 

PRINT 

- 

RND 

READ 

REM 

RESTORE 

RETURN 

THOMSON -TO 7 

LOCATE 


PRINT USING 

RND 

READ 

REM 

RESTORE 

RETURN 

MSX 1 

LOCATE 

PRINT 

PRINT USING 

RND 

READ x 

REM 

RESTORE 

RETURN 

ORDRES BASIC 

Extrait les caract. 
d'I ch. alphanum. 
en part, de droite 

Délecter si 
un point est 
allumé à l’écran 

Signe 

d'une 

variable 

Sinus 

Racine 

carrée 

Arrft 

en cours 
d'exécution 

Passage d’une 
variable nnméq. 
en alphanuméq. 

Redéfinition et 
animation d'un 
dessin définitif 

ORDINATEURS 

APPLE IP 

RIGHTS 

SCRN 

SGN 

SIN 

SQR 

STOP 

STR$ 

- 

ATARI 600 XL/800/XL 400/800 

- 

POINT 

SGN 

SIN 

SQR 

STOP 

STRS 

- 

COMMODORE AMIGA 

RIGHTS 

POINT 

SGN 

SIN 

SQR 

STOP 

STRS 

OBJECT... 

AMSTRAD 

RIGHTS 

TEST 

SGN 

SIN 

SQR 

STOP 

STR$ 

- 

ORIC ATMOS 

RIGHTS 

POINT 

SGN 

SIN 

SQR 

STOP 

STR$ 

- 

ZX 81 

- 

- 

SGN 

SIN 

SQR 

STOP 

STR$ 

- 

SPECTRUM 

- 

POINT 

SGN 

SIN 

SQR 

STOP 

STR$ 

- 

TI99/4A 

- 

- 

SGN 

SIN 

SQR 

STOP 

STR$ 

■ 

THOMSON -TO 7 

RIGHTS 

POINT 

SGN 

SIN 

SQR 

STOP 

STRS 

MSX 1 

RIGHTS 

POINT 

SGN 

SIN 

SQR 

STOP 

STRS 

SPRITE 

ORDRES BASIC 

Tangente 

Mode 

texte 

Horloge 

interne 

Boucles 

conditionnelles 

Valeur numérique 
d'une chaîne 
alphanumérique 

Pause 

ORDINATEURS 

APPLE IP 

TAN 

TEXT 

- 

- 

VAL 

- 

ATARI 600 XL/800 XL/400/800 

- 

GRAPHICS 

- 

- 

VAL 

- 

COMMODORE AMIGA 

TAN 

- 

TIMES 

REPEAT UNTIL 

VAL 

WAIT 

AMSTRAD 

TAN 

- 

TIME 

WHILE WEND 

VAL 

- 

ORIC ATMOS 

TAN 

TEXT 

- 

REPEAT 

VAL 

WAIT 

ZX 81 

TAN 

- 

- 

- 

VAL 

PAUSE 

SPECTRUM 

TAN 

- 

- 

- 

VAL 

PAUSE 

TI 99/4A 

TAN 

- 

- 

- 

VAL 

- 

THOMSON -TO 7 

TAN 

- 

- 

- 

VAL 

- 

MSX 1 

TAN 

SCREEN 1,1 

TIME 

- 

VAL 

- 
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AMSTRAD 


ETOILES 


Aux commandes de votre super vaisseau spatial, gare aux 
envahisseurs qui vous attaquent. Des particules 
neuroniques pleuvent de tous côtés, menaçant de vous 
détruire. Un jeu extrêmement rapide qui 
demande des réflexes impressionnants et des nerfs d'acier... 


1Ü HEh ******** ETOILES ********* 

20 REM COPYRIGHT 1906 BOULDER MAN - 
30 REM ************************** 

4U REM 

50 REM initialisation de l’écran 
où REM ************************* 

7U MODE lsINK Ü,0:INK 1,6s INK 2,1 : INK 3, 
14 s BORDER 1 

6ü PEN #0,1:PAPER #Ü,0:PEN #1,1:PAPER #1 
,2•PEN #2,1:PAPER #2,2:PEN #3,3!PAPER #3 
, 2 

9Ü WINDOW #G,11,30,1,20:WIND0W #1,1,10,1 
, 25 : WINDOW #2, 11,30,21,25 s WINDOW #3,31,4 
Ü, 1,25 

1ÜÜ SPEED KEY 10,1 

1.10 REM INITIALISATION DE VARIABLES 
120 REM *************************** 

130 DEFINT A-Z:DIM TOP$(7),TOP<7>,t(9) 

140 FOR 1=0 TO 7:T0P*(I)="." :NEXT 

150 REM DEFINITION DE CARACTERES 
lt»ü REM ************************ 

I /O SYMBOL AFTER 244:F0R i=245 TO 2528 RE 
AD dl,d2,d3,d4,d5,d6,d7,d0sSYMBOL I,D1,D 
2,D3,D4,D5,D6,D7,D8:NEXT 
100 DATA 60,126,239,223,223,255,255,127 


190 DATA 112,252,254,254,254,254,254,252 
200 DATA 63,15,7,3,1,1,0,0. 

21Ü DATA 248,224,192,120,0,0,0,0 

220 DATA 24,60,126,122,255,253,253,255,2 

55,191,191,255,94,126,60,24 

23Ü DATA 96,240,240,96,240,240,252,252,2 

4L), 240,24Ü, 96,96,96,96,120 

240 GOTO 750 

25Ü REM AFFICHAGE DU TABLEAU 
260 REM ******************** 

270 SCORE=0:NBVIE=3 s NBTAB=1:Y=11 

200 FEU=Ü : FEUN=Ü : F'OR i=0 TO 9:t(i)=0:NEX 

I 

290 GOSUB 020 

300 CLS#2::LOCATE #2,0,4:PRINT #2,"ET0IL 
ES" 

310 CLS #3 :L0CATE #3,2,21 :PRINT #3,"TABL 

EAUX" sm-ilNT #3, 11 " ïNBTAB 

320 LOCATE #3,3,24:PRINT #3," SCORE " 

330 FOR 1 = 1 TO NBVIE:L0CATE#3,1,1*4 : PRIN 
T #3," ";CHR$(245);CHR$ < 246):PRINT #3 

," “;CHR*(247);CHR$(248):NEXT 

34Ü LOCATE 1,21:FOR 1=0 TO 19:PRINT:F0R 

J =ü TO 50:NEXT:NEXT 


350 POR 1=0 TO 1Ü0*NBTAB:PLOT 176+RND*20 




8, 80+RND*320, RNp*2+l : NEXT 

0 

360 FOR 1 = 1 TO 20 STEP 2 ï LOGATE 20,1 s PR 

520 IF XN>168 THEN XN=XN-42: PLOT XN,FEUN 

INT CHR1M249) ï SLOCATE 20,i+1 SPRINT CHR$ ( 

,3:PLOT XN,FEUN1,3:PLOT XN,FEUN2,3: PLOT 

2Sü) î s NEXT 

XN,FEUN3,3:PLOT XN,FEUN4,3 : PLOT XN,FEUN5 

3 7Ü REM JOUER 

,3 : PLOT XN,FEUN6,3 : GOTO 390 

300 REM ***** 

530 IF 19—2*H=Y OR 19-2*H1=Y OR 19-2*H2= 

390 LOCATE 1,Y:PRINT CHR$ < 251)SPRINT CHR 

Y OR 19—2*H3=Y OR 19-2*H4=Y OR 19-2*H5= 

9» <252) ; 

Y OR 19—2*H6—Y THEN 650 ELSE FEUN=0 

400 LOCATE #3,2,25:PRINT #3," ";SCORE 

540 i=ü 

41Ü 0=ü:A«=INKEY*sIF A*=CHR$(240) AND Y< 

55Ü IF t(i)=0 THEN 390 

>1 THEN D=-2 

560 i = i + l: IF i<>10 THEN 550 

42Ü IF A*=CHR*(241) AND Y<>19 THEN D=2 

570 REM FIN DE PARTIE 

43ü IP DOO THEN LOCATE 1,Y:PRINT “ " s PR 

5BÜ REM ************** 

INT " ";ï Y=Y+D 

59Ü FOR i=0 TO 10 

44Ü IF FEU=Ü THEN FEU=400-Y*16:X=176 

6ÜÜ PEN #3,Ü:LOCATE #3,3,24 :PRINT #3," B 

45U IF FEUNOÜ THEN 480 

ONUS"SPRINT #3," +1000 M SFOR J=0 TO 10 

46Û H—INT(RND*10):H1=ÏNT(RND*10):H2=INT( 

Ü:NEXT 

RNù*10):H3=INT< RND*10):H4=I NT(RND*10):H5 

610 PEN #3,3:LOCATE #3,3,24 :PRINT #3," B 

= 1 IM T ( RND* 10) : H6= I NT ( RND*10 > 

ONUS-SPRINT #3, M +1000 M s SOUND 1,200,1 

470 FEUN=96+32*H:FEUN1=96+32*H1:FEUN2=96 

0,14:FOR J=Q TO iOOïNEXT 

+32*H2:FEUN3=96+32*H3:FEUN4=96+32*H4: FEU 

620 NEXT 

N5=9ô+32*H5:FEUN6=96+32*H6:XN=464 

630 SCORE=SCORE+1000 :NBTAB=NBTAB+1 

48U SOUND 1,X,1,15 : : PLOT X,FEU,Os PLOT XN 

64Ü GOTO 280 

,FEUN ,Ü: PLOT XN,FEUN1,Ü: PLOT XN,FEUN2,0: 

650 LOCATE 5,5 SPRINT " TOUCHE" 

PLOT XN,FEUN3,Û: PLOT XN,FEUN4,0: PLOT XN, 

66Ü NBVIE«NBUIE-1: IF NBVIE>-1 THEN 280 

FfcUNb,ÜS PLOT XN,FEUN6,D 

67U CLS 

49U IF X<472 THEN X=X+15:PL0T X,FEU,ÜGO 

680 FOR 1=0 TO 7:IF SCORE>TOP(I> THEN 70 

TO 520 

0 

500 HH-FEU/32-3:1F T(HH)=0 THEN SCORE=SC 

690 NEXT:GOTO 750 

0RE+1ÜÛ ELSE IF SCOREOO THEN SCORE=SCOR 

700 CLSSPRINT "ENTREZ VOTRE NOM " 

E-30 

710 1NPUT A*: IF LEN(A*)>6 THEN 700 

51Ü t ( HH ) -1 : LOCATE 20, ( 9-HH ) *2+1 : PRINT " 

720 IF 1=7 THEN 740 

“ï:LOCATE 20,<9-HH)*2+2:PRINT " "ï:f blf 

730 FOR J=7 TO 1+1 STËP -1:TOP*(J)=TOP*( 
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J-l> ïTOP<J)=ÏOP<J- l)SNEXT 

-sez une ; Tuche vous gagnez 1DD PTS ,si 

74Ü TOP(I)-SCORE : TOP*(I)=A$:SOSUB 820 

vous tirez a cote vous perdez 50 PTS. 

750 CL_S SPRINT " Utilisez les fie- ch es 

1» 

HAUT et BAS pour vous déplacer, votre 

790 PRINT :PRINT" APPUYEZ SUR UNE TO 

tir est auto- matique." 

UCHE POUR JOUER"sCALL &BB06:GOTO 270 

760 PRINTSPRINT " Vous devez detrui-re 

Büü HEM AFFICHAGE DES SCORES 

les ruches inter—galactiques parmi les 

81 Ci REM ******************** 

étoiles dont lenombre augmentera sa 

82ü CLS#lsFOR 1=0 TO 7 

ns cesse pour genez la visibilité des 

82Ü LOCATE #1,1,1*3+1 

tirs." 

840 PRINT #1, 1 + 1 5 TOP*(I):PRINT#1,SPC(3) ; 

77LJ PRINT s PRINT " APPUYEZ SUR UNE 

TOP<I) 

TOUCHE" :CAL.L &BB06 

85Ü NEXTs RETURN 

780 CLS î PRINT : PRINT 11 Quand vous detrui 



AMSTRAD 


ALPHA BOMB 

Un bon programme qui allie le jeu à la réflexion. Un petit 
bonhomme fort sympathique est chargé de collecter les lettres 
disséminées sur l'écran. Il doit le faire en respectant 
l'ordre alphabétique et en ne repassant pas dans le sillage 
qu'il a laissé derrière lui. Plus ardu qu'on ne pense... 


;LÜ 7 **********•****-*•*******■#■*■*■*•#■■*■* 

.L i. ' * * 

12 * ALPHA BOMB * 

13 7 * * 

14 * COPYRIGHT 1706 BOULDERMAN * 

15 7 * # 

16 7 ***************************** 

1 7 ' 

18 7 POUR VOUS DIRIGER : 

19 7 Q = HAUT A = BAS 


2U 5 O = GAUCHE P = DROITE 

21 ' 

22 7 LE BUT DU JEU EST DE COLLECTER LES 

23 7 BOMBES DANS L'ORDRE ALPHABETIQUE 

24 7 SANS JAMAIS REPASSER AU MEME 

25 7 ENDROIT... 

26 CONSIDEREZ VOUS COMME MORT A LA 

27 7 MOINDRE ERREUR ! 

20 7 VOUS COMMENCEZ AVEC B BOMBES, 

29 7 ARRIVEREZ-VOUS JUSQU'AU SCORE 







30 » CONSIDERE COMME IMPOSSIBLE DE 

31 ’ 26 BOMBES ? 

32 » 

33 MODE 1 : BORDER ü : ENV 2,7,-1,30:ENV 3,4 
,-1,40 

34 INK 0,0:INK 1,26:INK 2,6:INK 3,24:PEN 
1 s PAPER 0 

35 DEFSTR A-H:DEFINT I-ZsDIM T(41,25):PF 
=6 :KL=248:GOSUB 70 

36 PB=Ü:X=20:V=3: T(X,Y)=21:LOCATE X,Y:PR 
INT CHR$(249) 

37 7 BOUCLE PRINCIPALE 
36 7 ================= 

39 X2=X:Y2=Y 

40 C-INKEY* 

41 IF C=“"THEN 40 

42 C=UPPER*(C) 

43 IF C="0“THEN X=X-1 

44 IF C="P"THEN X=X+1 

45 IF C= ,, Q"THEN Y=Y-1 

46 IF C=“A"THEN Y=Y+1 

47 ÏF X=X2 AND Y=Y2 THEN 40 
46 GOSUB 55 

49 IF X<1 OR X>40 OR Y<1 OR Y>24 THEN X = 
X2:Y=Y2 s GOTO 40 

50 LOCATE X2,Y2: PRINT CHR$(231>:T<X2,Y2) 

-20 

51 LOCATE X,Y : PRINT CHR*(KL):KL=KL+1: IF 
KL=2f - THEN KL=248 

52 GOTO 39 

53 7 COLLISIONS 

54 » ========== 

55 IF T(X,Y)=0 THEN RETURN 


56 IF T(X,Y)=20 THEN GOSUB 64=L0CATE 2,1 
:PEN 3:PAPER 2:PRINT"IL NE FAUT JAMAIS R 
EPASSER LA OU ON A" :LOCATE 14,2:PRINT"DE 
JA MARCHE": GOTO 61 

57 1F T< X, Y > OPB+1 THEN GOSUB 64 : PEN l:P 
APER 2:LOCATE 3,1 :PRINT"VOUS DEVEZ PREND 
NE LES BOMBES DANS":LOCATE 15,2:PRINT"L 7 
ORDRE !" 8GpTO 61 

58 PB=T(X,Y):T(X,Y)=0:IF PB=PF-1 THEN SO 
UND 1,560,210,15,2:SOUND 4,1,210,12,3,0, 
10 :LOCATE 7,12:PAPER 2:PEN 1 :PRINT"NIVEA 
U SUPERIEUR :"? :PRINT PFï:PRINT"BOMBES": 
FOR 1=0 TO 19 :C=INKEY$:NEXT:CALL &BB06:M 
ODE l:GOSUB 70:GOTO 36:ELSE GOSUB 76 :RET 
URN 

59 FIN DE PARTIE 

60 7 ============= 

61 PEN 2: PAPER 3:LOCATE 11,12:PRINT"VOUS 
AVE2 PERDU !":FOR 1=0 TO 19 :C=INKEY$: NE 

XT:LOCATE 4,14 :PRINT"PRESSEZ UNE TOUCHE 
POUR REJOUER":CALL &BB06:RUN 

62 7 EXPLOSION 

63 7 ========= 

64 OUT 255,8:OUT 256,1:FOR 1=1 TO 2000:N 
EXTsOUT 256,2:RETURN 

65 7 CONTACT AVEC UNE BOMBE 

66 7 ====================== 

67 LOCATE 3,1:PEN 2:PAPER 1 : PRINT"BRAVO 
! ! ! VOUS AVEZ FRANCHIS TOUS LES":LOCATE 
6,2: PR1 NT"TABLEAUX, VOUS ETES UN AS !": 
LOCATE 4,14 :PRINT"PRESSEZ UNE TOUCHE POU 
R REJOUER":CALL &BB06:RUN 
60 7 PLACEMENT DES BOMBES 
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69 


70 IF PF=27 THEN 67 

71 PAPER ÜïPEN 2:ERASE T:DIM T(41,25):FO 
R 1=1 TO PF 

72 X=INT(RND*34)+3:Y=INT(RND*10>+3=IF T( 
X,Y)=Ü THEN T(X,Y) = I : LOGATE X,Y : PRINT CH 


(64+1):ELSE 72 

73 -NEXT: RF=PF-»-l : PAPER O : PEN 1 : RETU R N 

74 ’ PRISE D'UNE BOMBE 

76 SOUND 1,478,210,15,2:SOUND 4,1,210,1 
,3,0,10 ï RETURN 


AMSTRAD 

CHRONO POURSUITE 

Deux adversaires s'affrontent dans une délirante 
partie de gendarme-voleur. Habillé de rouge ou de vert, vous 
poursuivez votre voleur de case en case et 
l'attrapez... Si vous n'y parvenez pas dans le temps imparti, 
vous vous transformez comme par magie en voleur 
et c'est à votre tour de prendre la poudre d'escampette. 














17 7 ALTERNATIVEMENT, LE JOUEUR SE VOIT 

18 ’ ATTRIBUE LE ROLE DE POURSUIVANT 

19 ' J OU POURSUIVI... 

20 SI VOUS ETES POURSUIVANT, CHERCHEZ 

21 7 PAR TOUS LES MOYENS POSSIBLES A LUI 

22 RENTRER DEDANS, VOUS N’AVEZ 

23 7 'POUR CELA QUE 30 S., CE DELAI 

24 7 EXPIRE, LES ROLES S’INVERSERONT 

25 7 SI VOUS AVEZ LE ROLE DE "POURSUIVI, 

26 VOUS DEVREZ TOUT FAIRE POUR L’ 

27 7 EVITER PENDANT CES 30 S. POUR 

28 7 QUE LES ROLES SOIENT INVERSES. 

29 ’ LE JEU SE DEROULE EN 5 MANCHES DE 

30 7 30 S.,AU BOUT DES QUELS SERA NOMME 

31 7 VAINQUEUR, CELUI QUI AURA EU LE 

32 7 PLUS GRAND NOMBRE DE VICTOIRE. 

33 7 (IL PEUT Y AVOIR EGALITE) 

34 7 LE ROLE DE CHACUN EST AFFICHE EN 

35 7 PERMANENCE EN HAUT DE L’ECRAN 

36 MODE lsBORDER 0 

37 INK 0,O ! INK 1,24!INK 2,6*INK 3,2:CLS 

38 SYMBOL 255,0,0,21,43,21,43,21,63 

39 SYMBOL 254,1,131,71,175,87,107,125,255 

40 DEFINT I-ZïGOSUB 72 

41 PEN 1 :FOR J=2 TO 39:FOR 1=2 TO 24 

42 LOCATE J,IsPRINT CHR$(255)? :NEXT I,J 
43-LOCATE Xl,YüPEN 2:PRINT CHR*(254); 

44 LOCATE X2,Y2:PEN 3:PRINT CHR*<554)5 

45 LOCATE 2,25:PEN 3 : PRINT"TEMPS: 30":PEN 
lsLOCATE 13,25 : P RINT"TOU R:"WN:PEN 3:L0CATE 
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22, 25 s PRINT 11 BLEU : O u :PEN 2:L0CATE 31,25 s P 
RINT"ROUGE: O" 

46 •' 

47 7 *** BOUCLE PRINCIPALE ***. 

48 7 

49 GOSUB 61 :TD=TIME/3QÜ: X1=39:Y1=2:X2=2 : Y2 

=24 

50 T= ( T IME/300.) —TD : IF TÔT2 THEN LOCATE 8, 


25 : PEN 2 SPRINT 3Q-T:T2=T:IF T >.29 THEN 66 
51 IF X1 = X2 AND Y1=Y2 THEN SOUND. 1,145,15 : 
GOTO 65 


52 X3=X1 : Y3=Y1 :X4=X2:Y4=Y2 

53 Xl = Xl + ( INKEY(0) <>-1 )-( INKEY( 1)0-1 ) :Y1 = 
Yl + ( INKEY (D) 0-1 )-( INKEY(2) 0-1 ) 

54 X2=X2+< INKEY (69) 0-1 ) - < INKEY ( 60 ) <>-1 ) =Y 
2=Y2+< INKEY(59) 0-1 )-< INKEY<71 ) O—1 ) 

55 X1=X1+(X1=40)-(X1=1):Y1=Y1+(Yl=25)-<Yl= 
1) 

56 X2=X2+(X2=40) — (X2=1):Y2=Y2+<Y2=25)-(Y2= 
1 ) 

57 LOCATE X3,Y3:PEN 1 SPRINT CHR$(255):LOCA 
TE X1 » Y1 :PEN 2:PRINT CHR$<254):LOCATE X4,Y 
4:PEN 1:PRINT CHR$(255)'LOCATE X2,Y2:PEN 3 
ïPRINT CHR*<254):GOTO 50 

58 7 

59 7 *** QUI DOIT ATTRAPER QUI ? *** 

60 7 

61 LOCATE 2,1 sPEN 3-W:PRINT A*(W):RETURN 

62 7 


63 


*** SCORE ET TOUR 




64 


65 WS<W)=WS<W)+1 s LO GATE 22,25:PEN 3ïPRINT" 
BLEU s *' WS (0)2 LOCATE 31,25:PEN 2 s PR I NT " ROUGE 
: 11 WG ( 1 > 

66 W=-<W=ü):WN=WN+1:LOCATE 13,25:PEN IsPRI 
NT"TOUR:"WN!IF WN<6 THEN LOCATE X1,V1:PRIN 
T CHR$<255>:LOCATE X2,Y2:PRINT CHR*(255):G 
OTO 49 

67 LOCATE 1,1 SPRINT SPACE*(30)sLOCATE 2,1: 
IF WS(G)-WS< 1 )<>0 THEN PRINT B*.( <WS<0> <WS( 
1))):ELSE PRINT B*(2) 

68 FOR 1=0 TO 12000 :NEXT:FOR 1=0 TO 19ïC*= 
1NKEY$ NEXT : CALL &EB06 : RUN 


69 ’ 

70 7 *** INITIALISATION DU JEU *** 

71 7 

72 WN=1 s X1=39 : Y1=2 s X2=2 s Y2=24:DIM WS<1),A$ 
(1),B*<2> 

73 A*(t)) = '*LE BLEU DOIT ATTRAPER LE ROUGE 

74 A$ ( 1 ) = " LE ROUGE DOIT ATTRAPER L.E BLEU 

75 B$(Ü)="LE VAINQUEUR EST LE BLEU ! ! ! 

76 B*(1)=“LE VAINQUEUR EST LE ROUGE !!! 

77 (2 > = "IL Y A EGALITE ! ! î 
70 RETURN 
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AMSTRAD 


MASTER MIND 


Un grand classique dans la lutte sans merci 
que se livrent neurones et octets. Ce programme d'aérobic 
axonial vous offre la couleur en prime. 


S REM master mind 

G REM Ce) PATRICE LELARGE 1986 
7 REM 

10 GOSUB 510 


20 DEF FNtitre$Cnom$) 
EN C non - i$ ') ) /2 , " "> 

30 PRINT ; PRINT ; PRINT ; 

=STRING$C C85—LENCno 

PRINT 

m$)>/2," 

a j » 

+norri$+" " +STR ! 

ING$ >. v 86-L 

40 PRINT" M 

DDDD" 

M 

A 

SSSS TTTTÏ 

EEEEE 

K RR R 

M M 

i I i • 

60 prTnt" mm 

D D" 

MM 

A A 

S T 

E 

R R 

MM MM 


60 PRINT" M 

D D" 

M M 

A A 

C; y 

E 

R R 

M M !" 


70 PRINT" M 

D D" 

M 

AAAAA 

SSS T 

EEEE 

RRRR 

M h 

1' 

SO PRINT" M 

D D" 

M 

A A 

S T 

E 

R F\ 

M M 

I 

90 PRINT" M 

D D" 

M 

A A 

S T 

E 

R R 

M M 

r 

X »'■ 

100 PRINT" M 

N DDDD" 

M 

A A 

SSSS T 

EEEEE 

R R 

M M 

111 

110 PRINT;PRINT; 

PRINT .‘PRINT; 

; PRINT:PRINT; 

PRINT" 


" +Cr 

“IRT C 27 ; p 


";"APPUYEZ SUR UNE TOUCHE POUR COMMENCER";CHR$C27)+" 
q":attente=l 

120 WH ILE INKEY*= M " ;attente=attente+1 : IF attente>20ÜG tk£n attente-ÏNT c attent.a/2 
66 ) 

130 WEND 
140 GOSUB 510 

150 PRINT FNtitre*C"M ASTER MIND "+CHR$C I SS)+" Bien placé • , +c 

HR*C187)+ M Mal placé");PRINT 
160 RANDOMIZECattente) 

170 FOR i = l TO 5 ;numeroCi) = INTC RNDC1)*9)+l ;NEXT i 

ISO coups=0 

190 coups=coups+l;i=0 

200 PRINT"ENTREZ VOS NUMEROS "j 

210 I = i + 1 

220 n*=INKEY*iIF n*=" M THEN 220 

230 IF n$<"l" OR n$>"9" THEN 220 

240 nCi)=VALCn$):PRINT n*;” "; : IF i<S THEN 210 

250 FOR i-1 TO 5 : num< i )=nuniero( i ) ; NEXT i 

260 PRINT" "; 

270 bien=0 

280 FOR i=l TQ 5 

290 IF numCi)=n Ci) THEN bien=bien+1 ;n C i >"0 :numCi)=0 ' 

300 NEXT i 

310 ma1=0 

320 FOR i=1 Tü 5 

330 IF numCi)=0 THEN 380 

340 FOR j=l TO 5 

350 IF n Cj)=0 THEN 370 

360 IF num Ci)=n < j > THEN ma 1=ma1 +1 ;n Cj>-0 :num Ci)=0 
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370 NEXT j 
330 NEXT i 

390 IF bien>0 THEN FDR i=l TD bien:PRINT CHR*C133;;" ";;NEXT i 
400 IF rna 1 > 0 THEN FDR i = l TG mal; PR INT CHR$ C I 87 > ; " ";;NEX.T i 
410 PRINT 

420 IF bien05 THEN GOTO 190 
430 PRINT 

440 PRINT"Vous avez t rouvez en"; coups]" coups" 

450 PRINT : PRINT"VOULEZ VOUS REJOUER CO/N)" 

450 r $= I.NPUT % C 1 ) 

470 r$=UPPER*<r$> 

430 IF r*="F" THEN END 
490 IF r0" THEN GOTO 140 
500 END 

510 PRINT CHR$C 27)+ "E"+CHR$C27) + "H"; 

520 RETURN 


AMSTRAD 

TURBOTRON 

Qui ne connaît ce magnifique film de Walt Disney réalisé 
entièrement en images de synthèse ? Ici, vous vous livrez, 
dans une course effrénée, à une lutte sans merci contre un 
adversaire redoutable qui jalonne sa route d'embûches que 
vous devez éviter. Les sillons que vous laissez tous deux 
derrière vous s'avèrent mortels pour l'un comme pour l'autre ! 


LO *-*#****■***#****■*****************•*■*** 

INT #1,A3* 

2Ü * BOULDERMAN PRESENTE: * 

170 LOCATE #1,i,22:PRINT #1,A*:PRINT #1, 

30 * TURBOTRON * 

A2*: PRINT #1,A3* 

40 ************************************ 

100 LOCATE #1,1,6:PRINTttl,“ROUGE : " :LOCA 

100 BORDER □: MODE 1:INK 0,0:DEFINT A-Z: I 

TE #1,2,11 SPRINT # 1 * " BLEU :" 

NK 1,20:INK 2, 15:INK 3,26 :WINDOW#1 , 34 , 40 

190 ->:1— n:y l=0sv2=0:y2=0:D=l :E=1 : OR IG IN 2 

m 

N 

•H 

56,200,0,512,0,400:CLG 0:M0VE 256,196:DR 

1.10 CLEAR:D=1 :E= 1 

AW 256,-200,3:DRAW -256,-200,3 : DRAW -256 

120 A$=CHR$ ( 150 ) +STRING$ < 4,CHR*<154) )+CH 

,196,3 : DRAW 256,196,3 : MOVE 252,192:DRAW 

R$(156) 

252,-196,3 : DRAW -252,-196,3 : DRAW -252,19 

130 A2*=CHR*<149 )+ n TRON"+CHR4 ( 149) 

2,3:DRAW 252,192,3 

140 A3$=CHR*(147 ) +STRING$(4,CHR$<154))+C 

200 LOCA 'E #1,3,0:PRINT #1,I1:L0CATE #1, 

HR$ ( 153) 

3, 14 : PRINT #1,12 

150 CLS#1 

210 ’ 

16Ü PRINT # 1 : PRINT #1,A*:PRINT #1,A2*:PR 

220 ’ *** BOUCLE PRINCIPALE *** 
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AMSTRAD 


FRACTALES 

Un programme destiné tout particulièrement aux mordus de la 
création. Il permet de réaliser, selon son talent, des 
merveilles, mais peut aussi s'utiliser en tant que sous- 
routine à l'intérieur d'œuvres créées auparavant. 


5 

10 

15 

16 
17 
10 
20 
30 
40 
50 
60 
70 
00 
□R 
90 

100 
110 
120 
130 
140 
150 
160 
170 
100 
190 
200 
210 
220 
230 
240 
250 
260 
270 
200 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


FRACTALES 

' (C) 1904 

'auteurs MARY Patrick & ZINGRAFF Eric 


MODE 1 

BORDER 0 

INK 0,0:INK 1,21 

DIN MAT (65,65),X(1500),Y(1500) 

CT=CT+1 

X(1)=4:Y(1>=40:X(2)=320:Y(2)=399:X(3)=639:Y(3)=30 
MOVE X(1) ,Y(1); DRAW X(2) ,Y(2): DRAW X(3) ,Y(3): DRAW 
1=1 TO 1000:NEXT 

FOR 1=1 TO 3:PLOT X(I),Y(I):NEXT 
MAT (1,1)=1 : MAT (1,65)=2:MAT (65,1)=3 
CLS 

PT=3:N=1 
PAS=64 

FOR 1=1 TO 65-PAS STEP FAS 
N1=MAT(I,1) 

PLOT X(N1),Y(NI) 

FOR J=1 TO 66-I—PAS STEP PAS 
PT=PT +1 

MAT (I,J+PAS/2)=PT 
N1=MAT (I,J):N2=MAT (I,J+PAS) 

GOSUB 600 
DRAW X(PT),Y(PT) 

DRAW X(N2),Y(N2) 

NEXT J 
NEXT I 

PH=PH+1 : PRINT" ETAPE";PH+1 
FOR J=1 TO 65-PAS STEP PAS 
N1=MAT(1,J) 

PLOT X(NI),Y(NI) 

FOR 1=1 TO 66-PAS-J STEP PAS 
PT=PT+1 

MAT (I+PAS/2,J)=PT 
N1=MAT (I,J):N2=MAT 
GOSUB 600 
DRAW X(PT),Y(PT): 

NEXT I 
NEXT J 

FOR J=PAS+1 TO 65 STEP PAS 
N1=MAT(1,J) 

PLOT X(NI),Y(NI) 

FOR 1=1 TO J-PAS STEP PAS 
PT=PT+1 

MAT (I+PAS/2,J-I—PAS/2+1)=PT 


X ( 1) ,Y(1>:PRINT" ETAPE 1": F 


(I+PAS,J) 

DRAW X(N2),Y(N2) 


N1=MAT(I,J-I+l):N2=MAT(I+PAS,J-PAS-I+1) 
GOSUB 600 
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110 

KEY 120 , "SPEED KEY 20,2 




120 

LOCATE 1,10 




130 

FOR i = 1 TO 150 




140 

ha=INT(RND(1)*2)+1 : IF ha=2 THEN PRINT CHR$<143); 




150 

PRINT " "; 




160 

NEXT i 




170 

LOCATE 2 , 24 : PRINT CHR$(214); STRING*(4 , 143) ; CHR$(215): 




100 

SYMBOL AFTER 230 : SYMBOL 233 , 8c3C , &7E , ?<7E , &3C , S<7E , &01 , &81 

, CcO 



190 

SPEED KEY 1 , 1 




200 

DEFINT A , X , Y 




210 

ON BREAK GOSUB 360 




220 

TAG 




230 

col=0:0=0.5:W=0.5:0=16:D=0:R=3:S$=CHR$(233) : G=0.4 




240 

X=320:Y=400:A=0:B=0:SP$=" " 




250 

XR=X : YR=Y : X=X+A:B=B-G : Y=Y+B 




260 

B=B+(V AND INKEY(0 ) =0 )-( V AND INKEY(2)=0) 




270 

A=A+(W AND INKEY(1)=0) - (W AND INKEY(0)=O) 




2B0 

IF x >24 AND x<56 AND y<46 AND C0L<10 THEN BORDER 1,10s 

GOTO 

00 


290 

IF col =10 THEN FOR i=l TO 10:MOVE x,y:F’RINT CHR$(143+i) 

; : NEXT:GOTO 00 


300 

IF TEST(XR+(C AND A>=0),YR-(C AND B<0))THEN B=-B+RND*R: 

A=- 

A+RND*R:col 

=col+l 

310 

IF TEST(XR+(C AND A>0),YR-(C AND B>=0))THEN B=-B+RND*R : 

A=- 

A+RND*R:col 

=CQl+1 

320 

IF TEST (.XR+ (C AND A<0),YR-(C AND B<0))<>0 THEN B=-B+RND*R : 

A=—A+RND*R: 

col=co 

1+1 

- 




330 

MOVE XR,YR:PRINT SP$; 




340 

MOVE X,Y:PRINT S$; 




350 

GOTO 250 




360 

SPEED KEY 20,2 : END 





AMSTRAD 


MINED IN 

Attention où vous mettez les pieds ! Vous ne marchez pas sur 
des œufs ni à côté de vos pompes mais 
bel et bien dans un champ de mines. Heureusement, votre tank 
très performant se trouve équipé d'un radar 
qui permet de détecter les mines. Leur nombre augmente en 
fonction du temps que vous mettrez à 
traverser le champ. Alors, un conseil, faites vite... 


10 7 ********************************** 

,26):INK 3,24:INK 0,9:INK 1,6 :PEN 1 : PAPE 

20 » * * 

R 0 

30 ’ * MINED IN, PAR BOULDERMAN * 

100 MODE l:BORDER 2 :ERASE M : DIM M(41,26) 

40 7 * * 

:WÏNDOW#!,1 , 40,1,3 : PAPER#1 , 2 : CLS#1:PENttl 

50 7 ********************************** 

, 0:LOCATE#1,7,2:INK'3,24:PRINT#1,"MINES 

60 * 

A PROXIMITE 

70 7 *** INITIALISATION *** 

110 FOR 1=2 TO 39:LOCATE 1,4 :PEN 2:PRINT 

O 

03 

CHR*<U) SNEXTSFOR 1=5 TO 24 sLOCATE 40,1: 

90 DEFIN I' A-Z : MI =60 : U=207 : TER= 1 sDIM M(41 

PRINT CHR*(U>SNEXTSFOR 1=39 TO 2 STEP -1 


















380 WH ILE INKEY$="":WEND : RUN 

)THEN LOCATE X,Y:PEN 3:PRINT CHR*<101>i 

390 IF V=0 THEN 410 

450 NEXT Y,X :CLS#1:PRINT#1," BRAVO, V 

4ÜÜ SOUND 1,204,15,5:SOUND 1,200,10,5 

OUS AVEZ PASSE LE TERRAIN ": PRINT#1,TAB( 

41ü LOCATE#1127,2 : PRINT#1,V :V=0:RETURN 

15)î"NUMERO"ïTER;:TER=TER+1:MI=MI+10 

420 IF XO20 AND X<>19 AND X<>21 THEN 34 

<+6U CALL &BBÜ4: GOTO 100 

ü ELSE 310 

A7Ü OUT 255,8 : OUT 256,1 s FOR 1 = 1 TO 100: S 

430 IF XO20 AND X<>19 AND X<>21 THEN 34 

OUND 1,1,3:FOR J=248 TO 251:LOCATE X,Y:P 

□ 

Ri NT CHR*<J)sNEXT J,ISOUT 256,2!RETURN 

440 FOR X= 1 TO 40*. FOR Y=1 TO 25:IF M<X,Y 



AMSTRAD 


MUR... 

A Taide des flèches ou d # un joystick, 
renvoyez la balle sur un mur. En ceci, Mur ressemble à une 
simulation de squash. Mais surtout, sa simplicité 
permet de comprendre les éléments de base en programmation. 


10 ' MUR 

350 LOCATE I,1 

100 MODE 1 

360 PRINT CHR$<143) 

110 LOCATE 10,10 

370 A<I,1)=1 

120 1NPUT “Clavier ou Joystick “;R* 

380 NEXT 

130 R*=UPPER*(R$) 

390 INK 1,11 

140 IF R*="C“ THEN GG=8:GD=1:G0T0 170 

400 PEN 2 

150 IF R$=“J“ THEN GG=74:GD=75ïG0T0 170 

410 G0SUB 870 

160 RUN 

420 XR=19:C0L=3 

170 BORDER 0 

430 G0SUB 900 

180 INK 0,0 

440 XB=5îYB=23 

190 INK 1,0 

450 XI=XB:YI=YB 

200 INK 2,24 

460 C0L=2 ïGOSUB 980 

210 INK 3,6 

470 ' 

220 PAPER 0 

480 IF INKEY(GG)=-1 THEN 540 

230 PEN 1 

490 COL=0 

240 MODE 1 

500 G0SUB 900 

250 DIM A<40,23) 

510 XR=XR-1 

260 FOR 1=1 T0 23 

520 C0L=3 

270 LOCATE 1,1 

530 G0SUB 900 

280 PRINT CHR$<143) 

540 IF INKEY<GD)=-1 THEN 600 

290 A(l,I)=1 

550 COL=0 

300 LOCATE 40,1 

560 60SUB 900 

310 PRINT CHR$<143) 

570 XR=XR*1 

320 A<40,1) = 1 

580 C0L=3 

330 NEXT 

590 GOSUB 900 

340 FOR 1=1 T0 40 

600 IF A(XB41,YB)=1 THEN XI=XI-1 ;IND=1 
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410 IF A<XB-1,YB)=1 THEN XI=XI +1 :IND=1 

620 IF A(XB,YB+1)=1 THEN Y1=YI-1 :IND=1 

630 IF A<XB,YB—1)=1 THEN YI=YI+1:IND=1 

440 C0L=0 ï GOSUB 900 

650 IF IND=1 THEN XB=XI :YB=YI 

460 IF IND=0 THEN XB=XB+1:YB=YB-1 

670 C0L=2:GOSUB 900 

480 IND=0 

690 IF YB=23 THEN IF XB=XR THEN 720 

700 1F XB>23 THEN 740 

710 GOTO 480 

720 SCOR=SCOR+100 

730 GOSUB 870 

740 SOUND 2,25,3 

750 GOTO 480 

740 INK 1,24 ïPEN 1ïMODE 0 

770 LOCATE 5,5 

780 PRINT “SCORE “jSCOR 

790 FOR 1 = 1 TO 250 : SOUND 1,50+1,5ïNEXT 

800 CLS 

810 LOCATE 5,5 


820 INPUT “UNE AUTRE “ \R% 

830 R$=UPPER*<RS) 

840 IF R$= n O u THEN RUN 
850 IF R*=“N U THEN CLSïEND 
860 GOTO 800 
870 LOCATE 5,25 
880 PRINT "SCORE:"jSCOR 
890 RETURN 

900 IF XR<2 THEN XR=2 

910 IF XR>38 THEN XR=38 

920 IFC0L=3 THENA(XR,23)=1:A(XR+1,23)=1 

930 IFCOL=0 THENA(XR,23)=0:A<XR+1,23)=0 

940 LOCATE XR,23 

950 PEN COL 

940 PRINT STR1NG*(2,CHR*<10)> 

970 RETURN' 

980 ' 

990 PEN COL 

1000 LOCATE XB,YB 

1010 PRINT CHR$<231) 

1020 RETURN 


APPLE II 

TRACOURBE 

Pour les spécialistes, un «jeu » qui permet de 
résoudre des équations du type f (x) = O, de calculer des 
intégrales, des dérivées, de tracer des fonctions 
paramétriques dans les systèmes cartésien et polaire, et de 
conserver la dernière courbe. Le tout grâce à huit 
options, dont sauvegarde, impression, abandon momentané 
ou modification de l'équation en cours. 


SL1ST 

1 DEF FN Y(X) = 1 / <1 ♦ X * X) 

2 REM : :î:t: :i: :i: :i: :t: : : h : : : 11 n 111 ! : : s : : : 11 :i> t: : 3 :i: : : : : : : : : : 

3 REM i : 

4 REM : TRACOURBE - AIDE A L'ETUDE DE FONCTIONS : 

5 REM î : 

4 REM ; (C) YOURI BELTCHENKO 1986 : 

7 REM ï : 

6 REM : :: :: 3 1 : : : s : : : 11 cm : s i : 111 : t m r : : : : ; :i 111 : : : : j i : : a : : : : :: : : : : 

10 HIMEMs 36863! POKE 216,0* FOR 6 » 800 TO 809ï READ A: P0KE G,A: N EXT 

20 REM s DEFINITION DE LA FONCTION DERIVEE 3 

30 K =» G : D = 4i DIM A<280) ,B<280) iC* = CHR$ (4 )î DIM D*(K + 6) 

40 DEF FN C<J> * < FN Y<J + 1E - 04) - FN Y<J>> / 1E - 063 DEF FN D<J 
) = < FN Y<J ♦ 1E - 04) - FN Y<J)) / < FN X<J + 1E - 06) - FN X<J) 
) 

50 Et « 1 B i REM 23 ESPACES DANS Et 


► 
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40 ONERR GOTO 2400 
70 REM : 111 il ili:n: : m ii 1111 n 1111 
00 REM ! l 

90 REM : AFFICHAGE DU MENU t 

100 REM i : 

110 REM 111111111111111 il 1111 il 11111 
120 HOME i FOR G » 0 TO 20c READ Ai POKE 748 + G,Ai NEXT 

130 FOR G « 0 TO 13K READ Ai POKE 048 ♦ G,Ai NEXT s POKE 232,80 1 POKE 23 

3,3 

140 FOR G » 0 TO K ♦ 4i READ D*<G>| NEXT 

150 FOR G » 0 TO li READ F*<G,0)l READ F*<G,l)i NEXT 

140 T EXT iD » 41 HOME l IWERSE l PR1NT TAB< 11)"FUNCTIONS PACKAGE 1.0' 

I LEFT* <E*,9)i VTAB 2i NORMAL i POKE 34,2 
170 A*<0> =» "PARAMETRIC"iA*(1) - "CARTESIAN ":A*<2) = "POLAIRES VTAB 
41 HTA8 301 PRINT A»<0)l IWERSE l VTAB 5i HTAB 301 PRINT A*<l)i NORMAL 
i VTAB 4i HTAB 30i PRINT A*<2)iF - 5 

100 NORMAL i VTAB 22i FOR 0 - 1 TO 40i PRINT CHR* <95); ï N EXT i VTAB 23 
i PRINT TAB< 8)"USE ";i INVERSE i PRINT NORMAL i PRINT " ";s 

INVERSE i PRINT "->";i NORMAL *i PRINT " & ";i INVERSE : PRINT "<ENT 
ER>" ; 

190 NORMAL i PRINT " TO SELECT" 

200 VTAB Di IhWERSE i PRINT D$<0)lD =* D + 2i NORMAL : FOR G = 1 TO Kl VTAB 
Di PRINT D*(G)iD » D ♦ 2l N EXT iD = 4 
210 CALL 7401 IF PEEK <0) - 134 THEN C » - 2i GOSUB 280: GOTO 210 
220 NORMAL 

230 IF PEEK <0) = 155 THEN VTAB Fl HTAB 30i NORMAL : PRINT A*<F - 4):F 
» F + Il IF F > 4 THEN F - 4 

240 1F PEEK <0) » 155 THEN INVERSE i HTAB 30i VTAB Fi PRINT A*<F - 4): 
NORMAL i GOTO 210 

250 IF PEEK (0) « 149 THEN C » 2l GOSUB 280i GOTO 210 
240 IF PEEK <Q) » 141 THEN GOSUB 310i GOTO 140 
270 GOTO 210 

280 NORMAL 1 VTAB Di PRINT D*<D / 2 - 2)iD * D + Cl IF D < 4 THEN D » 20 
290 IF D > 20 THEN D = 4 

300 INVERSE i VTAB Di PRINT D$<D / 2 - 2)i RETURN 

310 ON D / 2 - 1 GOSUB 370,820,940,1090,1400,1230,1570,1490,1430: RETURN 


320 

REM . 

330 

REM 

340 

REM 

350 

REM 

340 

REM 

370 

ON F 

380 

REM 

390 

REM 

400 

REM 

410 

REM 

420 

REM 

430 

G* = "' 

440 

VTAB 


<B*)i 

450 

GOSUB 

440 

NORMA 

470 

GOSUB 

460 

GOSUB 

490 

REM 

500 

REM 

510 

REM 

520 

REM 

530 

REM 

540 

G* = "• 

550 

VTAB . 


11:i: 11111 :: 11111111 


TRACE DE LA FONCTION 


11 : 
- 3 

I I : 


I I I I 
I 
1 
I 

: 11111111111II111111 : : : m 
GOSUB 540,430,7301 RETURN 
1111111111111111111111111 


REPERE CARTESIEN 


I ! I I I 

TRACE DE XO A XI" 
4i HTAB 11 INPUT 


i 

i 

11 


Commentaires : 

Ce programme utilisant la page graphique, il faut le stocker entre les pages 1 
et 2 (pas de HGR2, donc !). Four cela, modifier les adresses 67H et 68H en 
O et 40H respectivement pour forcer le stockage à l’adresse 4000H, en utili¬ 
sant la séquence d’instructions POKE 103,0, POKE 104,64. 

Si vous disposez d’un joystick, l'option « tracé » vous offre une fonction zoom 
sur des portions visualisées par un cercle clignotant que vous déplacez. 

Si vous ne disposez pas d’imprimante Dot Matrix Printer ou Imagewriter, modifiez 
les codes de commandes en fonction de votre machine (repérer les lignes com¬ 
mençant par REM). 


I I I IIIIIIIIII I I I II I 

I GOSUB 2270iA* = "iB* = "": 
"X0»"|A$i INPUT "X1="|B*:A = 


2280i IF <B < - A) THEN 
. i VTAB 9i PRINT "CALCUL 
2210 

23201 GOSUB 2010i RETURN 

:: 11111111 il 111111111:11 


440 

D'ECHELLE 


EN COURS 


INVERSE 
VAL <A*):B 


INJERSE 


VAL 


FONCTION PARAMETRIQUE 


11111111111111 m 11111 
TRACE ENTRE PI ET P2" 
4i HTAB 11 INPUT "PI» 


111 
i 
i 
i 

: 11 

l GOSUB 2270iA* = "":B* = 
";A*i INPUT "P2=";B$iA = 


t 


VAL 


INVERSE 
<A*):B = 


VAL 
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<B*)i GOSUB 22001 IF <B < = A) THEN 550 
560 NORMAL s VTAB 9l PRINT "CALCUL D'ECHELLE EN COURS INVERSE :H * 

<B - A) / 279iL - 1E38iN - - 1E38 iO = L » Q = N 

570 FOR G » 0 TO 279iB(G> - FN X(A ♦ G # H)iA(G) » FN Y<A + G * H) 

500 IF B<G> < L THEN L - B(G) 

590 IF B(G) > N THEN N - B<G) 

600 IF A(G> < O THEN O - A<G) 

610 IF A<G) > Q THEN Q - A<G) 

620 N EXT 

630 GOSUB 2320sR = <Q - 0) / TiX * <N - L) / YïS * 279 / Y 
640 HGR : HCOLOR= 3 

650 HPLOT U ♦ Y - (<B<0> - L) / X) « U,V + T - <A<0) - 0) / R 

660 FOR G = 0 TO 279 STEP INT <S)s HPLOT TO U ♦ Y - (B<G) - L) / X f V ♦ 

T - (A(G) - 0) / Ri NEXT 

670 Al » AiB1 - BtA * LlB - Ni GOSUB 2030iA * A1:B = Bis RETURN 
680 REM s : : i : 111 : : :11111111111 : i ; : i 
690 REM : : 

700 REM i COORDONNEES POLAIRES i 
710 REM i ï' 

720 REH i: :i:iiiiiiiiii t i t i : i : i i m 

730 G$ - ' TRACE EN COORDONNEES POLAIRES": GOSUB 2270lA* = ma :B% = "":H* » 

■■lit » "" 

740 VTAB 6s HTAB 11 INPUT "Rl="iA*s INPUT "R2="iB*:A = VAL <A*):B = VAL 
(Bt):s IF <B < A) THEN 3822 

750 NORMAL : VTAB 91 PRINT "CALCUL D'ECHELLE EN COURS INJERSE iH = 

<0 - A) / 279:IL » 1E38:N = - 1E38iO = L:Q ■ N 

760 FOR G » 0 TO 279sB(G) = FN R<A ♦ G # H) # COS <A + G « H)sA(G) = FN 

R<A ♦ G * H) # SIN (A ♦ G # H): GOTO 580 

770 REM i:111:i:111s s11:i : i : : 111 : : i : 

780 REM : : 

790 REM : INTEGRATION NUMERIQUE i 
800 REM i ; 

810 REM :i:i:is111s :1111si : 111 : : : : 11 

820 IF F » 6 THEN HOME I VTAB 7i INVERSE : PRINT "INTEGRATION PARAMETR1 
QUE IMPOSSIBLE !!!"i NORMAL i GOTO 2250 
830 G$ « "INTEGRATION ENTRE XO ET Xl"i GOSUB 2270sA* * ""îB$ * "" 

040 VTAB 7i IhWERSE l INPUT "X0«"|Ats INPUT "Xl="|B*«A = VAL <AS)îB = VAL 
<Bt)s INPUT "NOMBRE D'INTERVAL i";JtiS = VAL <J*)î IF S < 0 THEN G* 

« "N > 0 !"i GOSUB 2000i GOTO 840 
850 GOSUB 2280i 1F <B < A) THEN 840 

860 H “ <B - A) / <2 * S)i FOR O = 1 TO 2 # S - 1 STEP 2:E = E ♦ FN Y<A ♦ 

G » H): NEXT il * E * 4:E » Qi FOR G = 2 TO 2 * S - 2 STEP 2 :E * E ♦ 

FN Y<A ♦ 6 » H)i NEXT si » I + 2 # E + FN Y<A> ♦ FN Y<B):I = I * 

H / 3 

870 IF I < 1E - 08 THEN I = 0 

880 NORMAL i PRINT i PRINT s PRINT "INTEGRALE : "ji INJERSE s PRINT "1= 
"»Ii NORMAL i GOTO 2250 
890 REM 11 : : si : is t s 11 s i s 1111111 : i : s 
900 REM i • 

910 REM i DERIVATION (EXPLICITE) s 
920 REM : : 

930 REM :: :11 : i:: : : 111:1111111 : : i : : 

940 ON F - 3 GQSÜB 1020,950i RETURN 

950 G* * "DERIVEE EN X0"i GOSUB 2270: INVERSE : VTAB 7: INPUT "X0=":K*:J = 
VAL (Kt) 

960 Cl » FN C(J)i VTAB 9s NORMAL s PRINT "DERIVEE EN " ; s IWERSE : PRINT 
J;i NORMAL i PRINT " s "|i INVERSE : PRINT "F' < " J J; " )=" ; Cl : NORMAL : 
GOTO 2250 

970 REM : s : : i s s s s m s : t s 11 s s.s : 

980 REM i : 

990 REM i DERIVATION < PARAME.) : 

1000 REM i s 

1010 REM s sms s s s s s s s s s s s i s s s s i s sts 
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1020 G* » "DERIVEE EN PO 1 : GOSUB 2270: IWERSE : VTAB 7: INPUT "P0="îMS:J 
■ VAL (MS) 

1030 Cl » FN D( J) : VTAB 9: NORMAL : PRINT "DERIVEE EN " ; : IWERSE : PRINT 
J) : NORMAL : PRINT ■ : "ji INVERSE : PRINT "F'(" j Jj " )*" jCl : NORMAL : 

GOTO 2250 

1040 REM 111 : 1111111111111 m : m : : i : 

1050 REM : : 

1040 REM : RESOLUTION DE F(X)=Q : 

1070 REM i : 

1060 REM :11111: : : :t:1111 : : i : i : : : : : : : 

1090 6$ «= "RESOLUTION TYPE F(X)»0"l GOSUB 2270: VTAB 4: HTAB lï INPUT "IN 
TERVAL DE RECHERCHE i";X0,Dl 
1100 INPUT "PRECISION l"|P 

1110 IF FN Y(X0) * FN Y<D1) ) 0 THEN PRINT : PRINT TAB< 8)"AUCUNE OU 
PLUSIEURS RACINES PRINT TAB< 4)"TRACER LA COURBE ENTRE XO ET X 
1": PRINT TAB< 8)"POUR AJUSTER VOTRE INTERVALE.": GOTO 2250 
1120 M = <X0 ♦ Dl) / 2: IF FN Y(M) = 0 THEN 1170 
1130 IF FN Y<X0) » FN Y(M) < 0 THEN Dl » MlEl « XOi GOTO 1150 
1140 XO » MiEl « Dl 

1150 IF ABS (El - M) < » P THEN 1170 
1140 GOTO 1120 

1170 VTAB 10: PRINT "RACINE DE F<X)=0 SUR X0,X1 i"j: IWERSE : PRINT M: NORMAL : GOTO 2250 
1160 REM : : : : :i: :i: i m i: : :t: :1111:i:i 

1190 REM : i 

1200 REM i SAUVEGARDE DES VALEURS : 

1210 REM : i 

1220 REM 111:i: :i: : : :11:1111111:11 : : i 

1230 IF Y - 0 THEN HOME : VTAB 7: INJERSE i PRINT " AUCUNE COURBE N'A E 
NCORE ETE TRACE ! ! ! "i NORMAL : GOTO 2250 
1240 G* - "SAUVEGARDE DE LA COURBE ACTUELLE": GOSUB 2270 
1250 VTAB 7l NORMAL i INPUT "NOM DE LA COURBE :"iO$: IF O* = "" THEN 125 
0 

1240 VTAB 7i HTAB 19i INJERSE i PRINT 0$: NORfttL 
1270 0$ » M + ".CRB" 

1280 GS » "FONCTION PARAMETRIQUE ?"i GOSUB 2400 

1290 PRINT CS|"ÛPEN"Q*i PRINT CSj"DELETE"OSi PRINT CS;"OPEN"OS: PRINT CS 
p"URITE"OS 

1300 IF Fl « 1 THEN PRINT "P"i GOTO 1340 
1310 PRINT A: PRINT Bi PRINT Oi PRINT Q 
1320 FOR G ■ 0 TO 279i PRINT A<G)i 
1330 NEXT l PRINT CS|"CLOSE"OSi GOTO 2250 

1340 i PRINT Al PRINT Bi PRINT Ll PRINT N: PRINT 0: PRINT Q: FOR G a 0 TO 
279: PRINT B<G)i PRINT A(G>| NEXT : PRINT CSj"CLOSE"OS: GOTO 2250 

1350 REM i : : 1111 H....111:111111 : 

1340 REM i * 

1370 REM : CHARGEMENT DES VALEURS : 

1380 REM : * 

1390 REM : : : i : i : i : : :...1111 : 

1400 G* = " CHARGEMENT DES VALEURS D'UNE COURBE": GOSUB 2270 
1410 VTAB 7: NORMAL i INPUT "NOM DE LA COURBE :"|OS: IF 0$ = "■ THEN 141 
0 

1420 VTAB 7: HTAB 19: INÆRSE i PRINT OS: NORMAL 
1430 0$ = 0$ 4 ".CRB" 

1440 PRINT CS;"QPEN"OS",L3400"l PRINT CSp"READ"OS 
1450 INPUT NS: IF N* » "P" THEN 1490 

1440 A * VAL (NS): INPUT Bi INPUT 0: INPUT Q: FOR G = 0 TO 279: INPUT A( 

G): NEXT : PRINT CS|"CLOSE"OS:GS « "DESIREZ-VOUS UN TRACE ?" : GOSUB 
2400 

1470 IF Fl » 1 THEN HOME iGS = "TRACE ENTRE XO ET XI": GOSUB 2270: IWERSE 
: GOTO 480 
1480 GOTO 2250 

1490 INPUT A|B,L,N|0,Q: FOR G » 0 TO 279: INPUT B(G),A(G): NEXT : PRINT 
CS»"CLOSE*OS:GS » "DESIREZ-VOUS UN TRACE ?" 
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1500 GOSUB 2400i IF Fl ® 1 THEN HOME :G$ = "TRACE ENTRE PI ET P2": GOSUB 
2270» IWERSE l GOTO 630 
1510 GOTO 2250 

1520 REM il1111111111111ii11 m il1111 

1530 REM i : 

1540 REM i CATALOG DISK i 
1550 REM i l 

1560 REM i: :11111111111111111111:11 : 

1570 HOME :G* » "CATALOG DISK - ! GOSUB 2270i PRINT CHRi <4) ; "CATALOG": GOTO 
2250 

1560 REM 1111111il111111111 il il 11111 

1590 REM : î 

1600 REM i SORTIE DU PROG. i 

1610 REM i t 

1620 REM i:11111111111111111111 m 111 

1630 POKE 34,Oi HOME i PRINT "SALUT END 

1640 REM 11111111111111111111111111 : 

1650 REM t i 

1660 REM i IMPRESSION *i 

1670 REM : i 

1660 REM 11111111111111111111 il 11111 

1690 G* « "IMPRESSION"! GOSUB 2270 
1700 REM l 

1710 REM t «aATTENTION A Pi ! ! ! 

1720 REM l = ™>SUIVANT VOTRE lMPRIhWNTE ! 

1730 REM i 

1740 P* - CHRi (9) 

1750 Qi = "" 

1760 HTAB 13i VTAB 8i INVERSE l PRINT Di(K ♦ 1 )ji NORMAL i PRINT SPC< 4 
)jDi(K 4 2)1 HTAB 13l VTAB lOi PRINT Di(K ♦ 3)p PRINT SPC< 4)|0i<K 
♦ 4) 

1770 FOR G - O TO 11 HTAB 13i VTAB 0 4 2 » GiGl * 13iHl ■ 23: IWERSE : PRINT 
Di<K ♦ 1 ♦ 2 « G) |i NORMAL i HTAB 23: PRINT Di<K 4 2 * <G 4 1)); 

1780 CALL 760 

1790 IF PEEK <0) ■ 136 THEN HTAB H1 i NORMAL : PRINT Di<K 4 2 # <G 4 1) 

>|l INVERSE l HTAB 611 PRINT Di<K 4 1 ♦ 2 * G)jiFl = 0: GOTO 1780 

1800 IF PEEK <0> ■ 149 THEN HTAB 61 s NORMAL : PRINT Di(K 4 1 + 2 » G); 

! IhWERSE I HTAB H11 PRINT Di<K 4 2 # (G ♦ 1 )>jïF 1 =* Il GOTO 1700 
1010 IF < PEEK <0) < > 141) AND < PEEK <0) < ) 255) THEN 1700 

1020 Qi - Qi 4 ST Ri (Fl)i NEXT 

1830 NORMAL l VTAB 14iGi » "IMPRESSION ? i"i GOSUB 2400: IF Fl ® 0 THEN 
1770 

1840 i PRINT 

1850 PRINT : PRINT "SWITCH PRINTER ON THEN ANY KEY TO BEGIN." 

1860 PR£ 1 

1870 FOR G = 1 TO 2: PRINT Pt 4 F*<G - 1, VAL < M1D* <OS v 6 p 1>>> s NEXT 

1880 IF MIM (0$, 1,1 ) - "S" THEN R$ « "22Q" GOTO 1900 

1090 Ri » "5Q" 

1900 PRINT Pi|R$ 

1910 PR£ 0 

1920 GOTO 2250 

1930 DATA 104,160,104,166,223,154,72,152,72,96 

1940 DATA 173,16,192,173,0,192,48,7,173,97,192,16,246,169,255,133,0,173 

,16,192,96 

1950 DATA 1,0,4,0,18,63,32,100,45,21,54,30,7,0 

1960 DATA TRACE DE FONCTIONS,INTEGRALE ENTRE 2 POINTS,DERIVEE EN XO,RESO 
LUTION TYPE F(X)-0 

1970 DATA CHARGER UNE COURBE,SAWER UNE COURBE,CATALOG DISK,IMPRESSION 
,QUIT 

1980 DATA S1MPLE,DOUBLE,NORMAL,INVERSE 

1990 DATA S,L,,C 

2000 J1 « PEEK (37) 4 2i PRINT i PRINT Gi: FOR G * 1 TO 1000: NEXT : VTAB 
Jll HTAB 11 QALL - 868i RETURN 
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2010 R » (Q - 0) / Tl HGR I HCOLOR» 3i HPLOT U,T ♦ V - <<A<0) - 0) / R)tU 
- Y / 27? i S ■■ 1 / U 

2020 FOR 0 » 0 TO 27? STEP INT <S)i HPLOT TO U ♦ G « U,T ♦ V - <<A<G) - 
0) / R)l NEXT 

2030 VTAB 21i NORMAL l PRINT "X iDE "p IhWERSE i PRINT A|i NORMAL i PRINT 
■ A "|i INVERSE l PRINT B|i NORMAL i PRINT 1 PAR "|i INVERSE i PRINT 
<B - A) / 10 

2040 i VTAB 221 NQPML i PRINT "Y iDE " \ i INVERSE k PRINT Op NORMAL I PRINT 
• A ■ p INVERSE i PRINT Qp NORMAL i PRINT " PAR a p INVERSE i PRINT 
(Q - 0) / lOi NORMAL 

2030 HPLOT U,V TO U ♦ Y # V TO U ♦ Y,V ♦ T TO U,V ♦ T TO U,V 
2060 GOSUB 21301 GOSUB 2170 
2070 IF A • B > - O THEN 20?0 

2080 HPLOT U ♦ ABS <A) • <Y / (B - A)) P V TO U ♦ ABS <A> » <Y / <B - A) 

),V ♦ TlAl - UlU - U ♦ ABS <A> * <Y / <B - A))lKl - YlY - Ol GOSUB 
2130lY - KliU - Al 
20?0 1F O « Q > - 0 THEN 2110 

2100 HPLOT U,V ♦ Q • <T / (Q - 0)) TO U ♦ Y,V ♦ Q * <T / <0 - 0))iAl - V 
iV - V ♦ Q • (T / <Q - 0>>iKl - TiT - Ol GOSUB 2170:T « KliV - Al 
2110 PRINT TAB< 7>"<PRESS fiNT KEY FOR MAIN MENU)"|i CALL 7601 IF PEEK 
(0) - 233 THEN 2450 
2120 RETURN 

2130 FOR G ■ V TO V ♦ T STEP T / lOt HPLOT U,G TO U ♦ 2,G 

2140 IF Y ■ 0 THEN 2160 

2150 HPLOT Y ♦ U - 2,0 TO U ♦ Y,G 

2160 NEXT I RETURN 

2170 FOR G - U TO U ♦ Y STEP Y / lOl HPLOT 0,V TO G,V ♦ 2 

2160 IF T - 0 THEN 2200 

21?0 HPLOT G,V ♦ T - 2 TO G P V ♦ T 

2200 NEXT i RETURN 

2210 H - (B - A) / 27?tO - lE39iQ « - 1E36 i FOR G - 0 TO 27?:J = A + G * 

HtA(G) ■ FN Y<J) 

2220 IF A<G) < O THEN O - A<G) 

2230 IF A(G) > Q THEN Q • A(G) 

2240 NEXT I RETURN 

2250 PRINT I PRINT i PRINT TAB< 7>"<PRESS ANY KEY FOR MAIN MENU>"i CALL 
76Bi IF D < > 4 AND D < >12 THEN RETURN 

2260 GOTO 2430 

2270 Kl - INT <<40 - LEN <Of>> / 2)i6f - LEFTf <Ef,Kl> ♦ GO ♦ LEFTi < 

Et v Kl)i HOME I VTAB 3i IWERSE i PRINT G$i NORMAL i RETURN 
2280 1F B < A AND F < >4 THEN G* - "XI > XO !"i GOSUB 2000I RETURN 
22?0 IF <B < - A) AND D < >6 THEN G$ - "PI > PO !"i GOSUB 2000i RETURN 

2300 RETURN 

2310 PRINT I PRINT I PRINT Gf J 

2320 NORMAL I VTAB >iGt - "REPERE PLEIN ECRttl 7"i GOSUB 2400t IF Fl « 1 
THEN Y - 27?«T - 15?iU - OiV - Ol RETURN 
2330 VTAB ?! INPUT "LONGUEUR DU CADRE < 20 A 260 > i"|LtiY - VAL <L*) - 
1 

2340 IF Y < 20 OR Y > 2B0 THEN G$ ■ "20 < LONGUEUR < 280 !■i GOSUB 2000t 
GOTO 2320 

2350 VTAB 11! INPUT "HAUTEUR DU CADRE < 20 A 160 > i"|LfiT = VAL <Lt) - 
1 

2360 IF T > 160 OR T < 20 THEN G* • "20 < HAUTEUR DU CADRE < 160 !"i GOSUB 
2000i GOTO 2330 

2370 VTAB 13i INPUT "ABSISCE DU CADRE <0 A 140 > i'jKOiU » VAL <K*)i 

IF U < 0 OR U > 140 THEN Gf - "0 < X < 140 ! * I GOSUB 2000: GOTO 237 

0 

2380 VTAB 15i INPUT "ORDONNEE DU CADRE <0 A 140 ) i"|S$iV » VAL <S$): 

IF V < 0 OR V > 140 THEN Gf - "0 < Y < 140 !": GOSUB 2000I GOTO 230 

0 

23?0 RETURN 

2400 Af<Q) - "OUI"lAf<1> - "NON" I PRINT I PRINT » PRINT Gf|" "|iGl * PEEK 
<36> ♦ Il IWERSE I PRINT Af<0)|i NORMAL iHl - PEEK <36) ♦ 2t HTAB 
Hli PRINT Af<1)|iFl - 1 

24Af<0S^LE17601iIBOTBEEKIOO) - 136 THEN HTAB H1I NORMAL I PRINT Af(l);i INVERSE : HTAB G1: PR1N 
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2420 IF PEEK (0) - 149 THEN HTAB 011 NORMAL I PRINT Af<0)|i IWERSE i HTAB 
Hit PRINT A$<1)|iFl - Ot GOTO 2410 
2430 IF PEEK <0) < > 141 THEN 2410 

2440 PRINT I NORMAL l RETURN 
2450 IF D < > 4 AND O < >12 THEN RETURN 

2460 IF N* - 'P* THEN RETURN 
2470 HOME i POKE - 16303,01 POKE - 16287,0 
2400 ROT- Ot SCALE- ltLl - 500 

2490 HTAB 11 VTAB 4i PRINT 'MOUE JOYSTICK TO UPPER LEFT <0,0>" 

2500 IF PDL <0> > 5 THEN 2490 
2510 IF PDL (1) > 5 THEN 2490 

2520 POKE - 16297,01 POKE - 16300,Os POKE - 16304,0 
2530 Ml - U ♦ 4iNl - V ♦ 4i01 - PDL <0) - 4iPl - PDL <1> - 4 

2540 Ml - U 4 PDL <Q> - 01iNl - V 4 PDL <1) - PIi IF NI > V 4 T - 4 THEN 

NI - g ♦ T - 4 

2550 IF PEEK < - 16287) > 127 THEN HPLOT M1,N1|Q1 - 127i IF L1 < 500 THEN 
2610 

2560 IF Q1 - 127 THEN L1 - MliRl - NliQl - Oi POKE - 16386,0 

2570 IF NI < V 4 4 THEN NI - V 4 4 

2500 IF Ml > U ♦ Y - 4 THEN Ml - U ♦ Y - 4 

2590 IF Ml < U ♦ 4 THEN Ml - U 4 4 

2600 XDRAU 1 AT Ml,N1I FOR G - 1 TO 100I N EXT I XDRAU 1 AT Ml,N1i GOTO 2 
540 

2610 SI - MliTl - Nil HPLOT L1,V TO Ll,g 4 Tl HPLOT SI,g TO SI,g 4 T 

2620 Q1 - Oi 1F SI > L1 THEN U1 - SliSl - LliLl - U1 

2630 II - L1 - <279 - Y) / 2iVl - SI - <279 - Y) / 2 

2640 U1 - I1l IF VI < Il THEN II - VI iVl - U1 

2650 XI - A 

2660 A - A 4 <B - A) » Il / YiB - XI 4 <B - XI) • VI / Yi GOSUB 2210i GOTO 
2010 

2670 STOP 

2680 CALL 6001 HOME lit - ""i TEXT i IF PEEK <222) - 53 THEN It - MLLE 
GAL QUANTITY" 

2690 IF PEEK <222) ■ 66 THEN It - "OVERFLOU" 

2700 IF PEEK <222) - 133 THEN T$ » 'DIVISION BY ZERO" 

2710 VTAB 6iUf - It 4 • ERROR OCCURED"i HTAB INT <<40 - LEN <Ut)) / 2) 

l INJERSE I PRINT U$i NORMAL i PRINT iG* - " DO YOU WISH TO RESTA 

RT?"i GOSUB 2400 

2720 IF Fl - 1 THEN POKE 222,0I GOTO 160 
2730 GOTO 1630 


APPLE II 

LA FORMULE OUBLIEE 

Vous incarnez ici le célèbre professeur Korismi. 

Une catastrophe mondiale à détruit toute l'eau se trouvant à 
la surface de la Terre. Vous êtes le seul à détenir 
la recette magique. Vous devez atteindre la salle des 
ordinateurs du centre de recherches pour 
introduire dans le cerveau principal la formule oubliée... 


§LIST 

Commentaire : 


Pour vous déplacer, utilisez les abréviations classiques : N - nord, S = Sud, 

0 POKE 33,40s HOME 

E - est, 0 - ouest. 

1 REM : 11 : i : i s s 11 s : n : : i : : s : : : : t : : : : : : : i 


2 REM it 

: 

3 REM s LA FORMULE OUBLIEE 


4 REM : 

s 
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5 REM 2 2 : i s ; s s s s s s s s : s s s s s i s s s s : : s s s : s s s 

6 POKE 33,39* GOSUB 9000 

10 HOME : PR1NT ■NOUS SOhMES EN 1947.UN CONFLIT MONDIAL A ANEANTI PRESQU 
E TOUTE FORME DE VIE SUR TERRE.■ 

15 PRINT "PLUS UNE GOUTTE D'EAU SUR SA SURFACE. VOUS,PROFESSEUR KOR1SMI 
ETES LE SEUL A VOUS SOWENIR DE LA CELEBRE FORMULE..." 

20 PRINT "VOUS ARRIVEZ AUX ABORDS DU SEUL CENTRE DE RECHERCHE ENCORE FON 
CTI OWEL .VOUS DEVREZ Y TRQIWER LA SALLE DES ORDINATEURS ET Y RENTRER 
LA FORMULE OUBLIEE ..." 

25 READ R1*,R2* 

30 PRINT j PRINT "VOUS ETES DEVANT LA PORTE DU CENTRE.IL FAIT TRES TRES 
CHAUD.IL Y A UN OBJET QUI BRILLE PAR TERRE." 

40 GOSUB 1000! IF U - 0 THEN GOSUB 3000s GOTO 30 
50 PRINT s PRINT "C'EST UNE PIECE DE 5 ROUBLES ..." 

55 READ Rl*,R2t 
60 GOSUB 1000 
65 IF W = 1 THEN 00 

70 IF 14 s "C" THEN PRINT s PRINT "IL Y'A UN MARCHAND DE GLACE .": GOSUB 
1000; IF W* < > "M" THEN GOSUB 3000tU* = "C"; GOTO 70 

75 GOSUB 3000! GOTO 60 
80 PRINT s PRINT "VOILA UN BON DEBUT ..." 

90 READ R1*,R2* 

100 GOSUB lOOOi IF W » 1 THEN 120 
110 GOSUB 3000s GOTO 100 
120 PRINT i PRINT "VOUS ETES DEVANT UN MARCHAND DE GLACES."; 

130 READ R1*,R2* 

140 GOSUB 1000* IF W - 1 THEN 160 
145 GOSUB 3000s GOTO 140 

160 PRINT s PRINT "VOUS ETES TOUT CONTENT.LE VENDEUR VOUS A DONNE UNE BE 
LLE GLACE A LA FRAISE ..."j 
165 READ R1*,R2* 

170 GOSUB 1000! IF W = 1 THEN 190 

172 PRINT s PRINT "FAITES ATTENTION , UN DANGER VOUS ... MENACE !"sN = 

1 

175 GOSUB 1000* IF U * 1 THEN 190 

176 IF N = 1 THEN PRINT s PRINT "LE MARCHAND SEMBLE S'ENERVER ..."sN = 

N ♦ Il GOTO 175 

180 IF N » 2 THEN PRINT s PRINT "LE MARCHAND SORT UN MAGNUM .,.":N = N ♦ 
Il GOTO 175 

182 IF N = 3 THEN PRINT s PRINT “VOUS VOILA BEAU AVEC UNE BALLE ENTRE 
LES DEUX YEUX !!i"i PRINT s PRINT "LA PROCHAINE FOIS DEPECHEZ-VOUS 
UN PEU PLUS ... DE PARTIR !"! END 

190 PRINT i PRINT "OUF...VOUS ECHAPPEZ A UN REEL DANGER EN LA PERSONNE 
DU MARCHAND..! 1 
195 READ R14 R2$ 

200 PRINT s PRINT "VOUS REVOILA DEVANT LA PORTE DU CENTRE.ELLE EST GARDE 
R PAR UN COLOSSE ... IL SEMBLE AVOIR TRES CHAUD LE PAUVRE !" 

205 GOSUB lOOOi IF W - 1 THEN 230 

210 PRINT i PRINT "LA CHALEUR NE SEMBLE PAS FAIRE DU BIEN AU COLOSSE ... 
"sN ® 1 

212 GOSUB lOOOi IF U * 1 THEN 230 

215 IF N « 1 THEN PRINT ; PRINT "LE COLOSSE S'APPROCHE DE VOUS ..."sN = 
N ♦ Il GOTO 212 

218 IF N = 2 THEN PRINT 2 PRINT "LE COLOSSE VOUS MARMONNE UNE PHRASE A 
LAQUELLE VOUS NE COMPRENEZ RIEN !"iN = N + ls GOTO 212 

220 IF N = 3 THEN PRINT i PRINT "VOUS ETES TRAINER EN PRISON PAR LE 

COLOSSE QUI NE SEMBLAIT PAS VOUS AIMER BEAUCOUP.VOUS ETES CONDAWE 
A CROUPIR ICI JUSQU'A LA FIN DES TEMPS ... " 

221 IF N = 3 THEN PRINT "LA PROCHAINE FOIS ESSAYEZ D'ETRE PLUS GENEREU 
X ! " i END 


Commentaire : 

Les commandes s’effectuent en utilisant un verbe suivi d’un nom. Ex. : LEVER 
MANETTE DROITE ou DETRUIRE MASQUE. 
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230 PRINT i PRINT "CETTE GLACE REND SA BOIsNE HUMEUR AU COLOSSE QUI VO 
US AUTORISE A ENTRER ..."s PRINT "VOUS VOILA DANS LE HALL D'ACÇEUIL 
DU CENTRE.IL Y A UNE SECRETAIRE CHARMANTE."; 

235 READ RU,R2* 

240 GOSUB 10001 IF U =» 1 THEN 270 

243 IF U* » "M" THEN PRINT : PRINT "VOUS ETES DEVANT UNE PORTE CONDAMNE 
E .."iN « 1 

244 IFWI» "M" THEN GOSUB 1000s IF U* < > "C" THEN PRINT î PRINT "LE 

SOL S'EFFONDRE SOUS VOS PIEDS ... VOUS ETES TUE PAR LA RADIOACTIV 
ITE CONSIDERABLE QUI REGNE DANS LE SOUS-SOL": END 
250 PRINT i PRINT "LA SECRETAIRE SEMBLE AVOIR DU ML A RESPIRER 
N « 1 

255 GOSUB 1000i IF W » 1 THEN 270 

25B IF N - 1 THEN PRINT : PRINT "LA PAUVRE SEMBLE COMMENCER A S'EVANOUI 
R" iN =» N ♦ Il GOTO 255 

25? IF N - 2 THEN PRINT i PRINT "ELLE SEMBLE ESSAYER DE VOUS DIRE 
QUELQUE CHOSE ..iN « N ♦ li GOTO 255 
240 IF N - 3 THEN PRINT l PRINT "LA SECRETAIRE S'EVANOUI ... ELLE NE 

POURRA PLUS VOUS DOWER LE RENSEIGNEMENT VITAL DONT VOU 

S AVIEZ BESOIN ..." 

245 IF N - 3 THEN PRINT i PRINT "LE PIECE EST ENVAHIE PAR DES VAPEUR 

RADIOACTIVES SUFFOCANTES ... POUR VOUS C'EST LA FIN END 

270 PRINT s PRINT "VOICI CE QU'ELLE VOUS DIT s VOUS AUREZ BESOIN DE VOUS 
PROTEGER DES VAPEURS SUFFOCANTES ..." 

275 PRINT i PRINT "VOUS REMARQUER UN OBJET BIZARRE SUR SONBUREAU ...": READ 
RU,R2$ 

280 GOSUB 1000: IF U » 1 THEN 300 

290 PRINT i PRINT "VOUS VOUS SENTER UN PEU FAIBLE ..":N ■ 1 
2?2 GOSUB 1000: IF W = 1 THEN 300 

2?4 IF N - 1 THEN PRINT : PRINT "ENCORE UN PEU ET VOUS N'AUREZ PLUS DU 
TOUT DE FORCE ...":N - N + 1 : GOTO 292 
295 IF N * 2 THEN PRINT : PRINT "PEUT-ETRE CET OBJET AURAIT-IL PU VOUS 
SAUVER..."i END 

300 PRINT : PRINT "IL S'AGIT D'UN MSQÜE A OXYGENE TRES PERFECTIOWE." 

: READ Rlt,R2$ 

310 GOSUB 1000: IF W 80 1 THEN 330 

318 PRINT : PRINT "DES VAPEURS ETRANGES SEMBLENT ENJAHIR LA PIECE ...": 

N = 1 

320 GOSUB 1000: IF W “ 1 THEN 330 

322 IF N - 1 THEN PRINT : PRINT "UNE IRRITATION DOULOUREUSE VOUS DEMANG 
ELE NEZ ..."iN * N ♦ 11 GOTO 320 

324 IF N * 2 THEN PRINT i PRINT "LA DEMANGEAI SON DEVIENT INSOUTENABLE.. 

.":N « N + li GOTO 320 

324 IF N * 3 THEN PRINT i PRINT "ETES VOUS SUR DE VOULOIR MOURRIR 
ASPHYXIE ?":N - N + 1: GOTO 320 

328 IF N = 4 THEN PRINT i PRINT "L'IRRITATION A DETRUIT TOUT VOTRE 

SYSTEME RESPIRATOIRE ...ESSAYEZ DONC DEVOUS SERVIR DU MASQUE UNE AU 
TRE FOIS !"i END 
330 IF W* = RU THEN MA = 1 

335 PRINT : PRINT "LES VAPEURS RENDENT LA VISIBILITE DIFFICILE.ESSA 

YEZ DONC DE VOUS ELOIGNERPENDANT QU'IL EN EST TEMPS ...": READ RU,R 
2$ 

340 GOSUB 1000: IF W « 1 THEN 340 

345 PRINT "DESOLE,VOUS AVEZ CHOISI LA MAWAISE DIRECTION.PAR LES TEMP 
S QUI COURRENT OW'A QU'UNE SEULE CHANCE ...VOUS ETES DEVORES PAR 
DES MUTANTS AFFAMES ... ■ i END 

340 PRINT i PRINT "OUF.. .C'ETAIT LA BOWE DIRECTION" i 1F MA = 0 THEN PRINT 
■MALHEUREUSEMENT, VOUS N'AVIEZ PAS MIS VOTRE MASQUE VOUS MOURREZ ASP 
HYXIE END 

345 READ R1*,R2* 
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370 PRINT : PRINT “VOUS VOILA DEVANT LE PROFESSEUR ABSTEINIL A BESOIN D' 

UN RENSEIGNEMENT URGENT.": PRINT : PRINT "DITES LUI LE NOM DU PREMIE 
R ORDINATEUR." 

375 GOSUB 1000: IF U “ 1 THEN 390 

380 PRINT : PRINT "LE PROFESSEUR SEMBLE NE PAS AVOIR MANGEDEPUIS LONGTEM 
PS ,..":N » 1 

385 GOSUB 1000: IF W =■ 1 THEN 390 

307 IF N * 1 THEN PRINT : PRINT "UNE ECUME BLANCHE APPARAIT SUR LES 
LEVRES DU PROFESSEUR ABSTE1N ..."iN ® N + 1 : GOTO 385 
380 IF N * 2 THEN PRINT : PRINT "LE PROFESSEUR VA SE JETER SUR VOUS SI 
VOUS NE LUI DOWEZ PAS SON RENSEIGNEMENT ..." iN = N + 1 

1 GOTO 385 

309 IF N ■ 3 THEN PRINT : PRINT "VOUS ETES DECHIQUETE PAR LE PROFESSEUR 
ABSTEIN DEVENU FOU ... TRISTE FIN POUR UN GRAND SAVANT !": END 
390 PRINT i PRINT "ABSTEIN VOUS FAIT REMARQUER QU'UN VIOLENT ORAGE 
SULFUREUX VIENT D'ECLATERDEHÛRS ...": READ R1*,R2$ 

395 GOSUB 1000i IF U » 1 THEN 420 

400 IF W$ » "C" THEN PRINT i PRINT "ABSTEIN,RENDU FOU PAR LES VAPEURS 

SULFUREUSES VOUS PRECIPITE DFWS UN GOUFFRE BEANT.ANCIEN MOTE 
UR ATOMIQUE DU CENTRE • • .DOttiAGE ! ■ : END 
405 IF W* = "L" THEN PRINT i PRINT "VOUS ETES DEVANT UNE PORTE BLINDEE 
... VOUS ENTENDEZ UN CLIQUETIS A L'INTERIEUR GOSUB 

1000: IF W* < > "O" THEN GOSUB 3000:U* = "L"i GOTO 405 
410 GOTO 395 

420 PRINT i PRINT "SUITE A L'ORAGE,UNE PÉNNE D'ENERGIE PLONGE LE CENT 
RE DANS L'OBSCURITE PRINT : PRINT "VOUS DISTINGUEZ MALGRE TOUT 

DEUX MANETTES LE LONG DU MUR READ R1*,R2* 

430 GOSUB 1000: IF W ■ 1 AND <Ut < > R2*) THEN 450 

435 IF = R2* THEN PRINT : PRINT "VOUS VOUS ETES TROMPE DE MANNETTE , 
VOUS AVEZ REENCLENCHER LE PROCESSUS DE FUSION ATOMIQUE ... UNE E 
NORME EXPLOSION DETRUIT A TOUT JAMAIS VOS ESPOIRS ...": END 

440 PRINT : PRINT "VOUS DISTINGUEZ DES OMBRES MOUVANTES DANS L'OBSCURI 
TE ..."iN - 1 

442 GOSUB 1000: IF U ■ 1 AND (W$ < > R2*> THEN 450 

443 IF N « 1 THEN PRINT : PRINT "LES OMBRES S'APPROCHENT DE VOUS _ 

VOUS SENTEZ UNE ODEUR DE SOUFFRE _"iN - N + 1: GOTO 442 

444 IF N ■ 2 THEN PRINT : PRINT "UN APPENDICE GLUANT VOUS FROLE LE CORP 

SVOUS FERIEZ MIEUX DE RETABLIR LA LUMIERE.":N = N + 1: GOTO 44 

2 

44 6 IF N ® 3 THEN PRINT i PRINT "QUEL MALHEUR ,UN MUTANT VIENT DE 

PRENDRE VOTRE TETE POUR UN FRUIT GEANT!AUTANT DIRE QUE VOUS ETES MA 
L EN POINT AVEC VOTRE TETE SOUS LE BRAS !!! NJE CROIS QUE C'ES 

T FINI POUR VOUS !": END 

450 PRINT : PRINT "VOUS WEZ ENCLENCHEZ LE GENERATEUR AUXILIAIRE,LA 
LUMIERE REVIENT ... IL Y A UNE ENVELOPPE PAR TERRE ..." 

452 READ R1*,R2* 

455 GOSUB 1000: IF Ll » 1 THEN 400 

440 PRINT : PRINT "L'ENJELOPPE VIENT D'ETRE RAPPELEE A SA VRAI PLACE : L 
A 4EME DIMENSION.AVEC ELLE VOUS VOYEZ PARTIR VOTRE DERNIERE CHAN 

CE END 

480 PRINT : PRINT "SUR L'ENJELOPPE IL Y'A MARQUE : CODE LITT". 

405 PRINT : PRINT "UN ETRANGE PERSQWAGE APPARAIT DEVANT VOUS.VOICI CE 
QU'IL VOUS DIT: JE SUIS LE SEUL A ETRE REVENU DE LA SALLE DES ORDI 
NATEURS." 

490 PRINT "POUR CELA VOICI LE CHEMIN QUE J'AI SUIVI : FOR T = 0 TO 

7: READ CH$<T): PRINT CHR* < ASC <CH*<T>> ♦ 2)" ";i NEXT 
495 FOR T - 1 TO 8000: NEXT : HOME 

500 PRINT "UNE FOIS DE PLUS,LA LUMIERE S'EST ETEINTE.A VOUS DE JOUE 
R MAINTENANT ..." 
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510 PRINT ï FOR Y * 7 T0 0 STEP - 1: READ RU*. 60SUB 1000 
515 IF W = 0 THEN PRINT : PRINT "VOUS VOUS ETES TROMPE DE CHEMIN OU VOU 
SN'AVEZ PAS ASSEZ REFLECHI PEUT-ETRE ÜIQUOI QU'IL EN SOIT VOUS ETES 
PERDU A TOUT JAMAIS DANS LES DECOMBRES DU CENTRE !!!“: END 
517 PRINT : PRINT V*<Y) 

520 NEXT 

530 PRINT : PRINT "VOUS VOICI ENFIN DEVANT LA PORTE DE LA SALLE DES O 
RDINATEURS"ï PRINT J PRINT "IL Y A UN DECLENCHEUR EN FORME DE MAIN S 
UR LA PORTE.": READ R1*,R2* 

540 GOSUB 1000: IF W =* 1 THEN 570 

545 PRINT : PRINT "ESSAYEZ DE NE PAS ECHOUER SI PRES DU BUT ...":N = 1 
550 GOSUB 1000: IF W » 1 THEN 570 

552 IF N * 1 THEN PRINT i PRINT "UNE SIRENE D'ALARME VIENT DE SE 
DECLENCHER ...":N « N + 1 : GOTO 550 

554 IF N * 2 THEN PRINT : PRINT "IL S'AGIT DE L'ALARME INDIQUANT UNE 
DIMINUTION ANORMALE D'OXYGENE ...":N = N + 1:'GOTO 550 
556 IF N » 3 THEN PRINT : PRINT "ESSAYER DE VOUS APPLIQUER! ■ 

:N ■ N + 1 : GOTO 550 

558 IF N » 4 THEN PRINT : PRINT "IL N'Y A PLUS ASSEZ D'OXYGENE POUR LES 
HUMAINS, SEUL LES MUTANTS PEUVENT RESPIRER-D'AILLEURS IL SE JE 
TTENT SUR VOUS ... VOUS AVEZ UNE FIN HORRIBLE..." 

540 IF N - 4 THEN PRINT i PRINT "LA PROCHAINE FOIS, SUIVEZ DONC LES 

CONSEIL A LA LETTRE ...PEUT-ETRE AUREZ VOUS ALORS PLUS DE CHANCE .. 

I ■ 

• • 

570 PRINT : PRINT "LA LOURDE PORTE S'EST OlWERTE DEVANT VOUS.VOUS ETES 

DANS LA SALLE DES ORDINATEURS ..." 

580 PRINT : PRINT "HAL <C'EST L'ORDINATEUR) SE MET EN ROUTE DES VOTR 
E ENTREE..." 

582 PRINT : READ R1*,R2* 

585 HA* « "TAPEZ LE CODE D'ACCES": GOSUB 4000 
590 GOSUB 1000: IF U = 1 THEN 400 

595 PRINT :HA* - "CE N'EST PAS LE BON CODE.RECOMMENCEZ.": GOSUB 4000: PRINT 
: GOTO 505 

400 PRINT iHA* * "RENTREZ LA FORMULE OUBLIEE PROFESSEUR GOSUB 4000 
410 READ RI*:R2* * Rl*i GOSUB 1000 

420 IF W « 0 THEN PRINT iHA* « "DESQLE GOSUB 4000: PRINT :HA* = n 

CE N'ETAIT PAS LA BONNE FORMULE ...": GOSUB 4000: PRINT :HA* = "REVO 
YEZ VOTRE FORMULAIRE DE CHIMIE...": GOSUB 4000: PRINT :HA* = "ADIEU 
PROFESSEUR ...": GOSUB 4000:PRIN 

430 PRINT iHA* » "BRAVO PROFESSEUR.MAINTENANT JE VAIS PÛIW01R RESYNTH 
ETISER DE L'EAU POUR TOUTE LA PLANETE.VOUS AVEZ SAUVER VOTRERACE 
DE LA DESTRUCTION.": GOSUB 4000 

999 END 

1000 PRINT : INPUT "=*>";A* 

1010 IF A* = "" THEN PRINT : PRINT "N'ENTREZ PAS N'IMPORTE QUOI GOTO 

1000 

2000 B* =* "": FOR T * 1 TO LEN <A*>: 1F MID* <A*,T,1) = " " THEN 2020 
2010 B* = B* ♦ MID* (A*,T,t) 

2020 NEXT :W* * "": FOR T = 1 TO LEN <B*)iU* = W* ♦ CHR* < ASC < MID* 
<B*,T,1)) - 2): NEXT :W = (W* = RI*) OR <U* = R2*) 

2030 RETURN 

3000 A - INT < RND <1> * 4): PRINT : PRINT F*<A): RETURN 
4000 FOR T = 1 TO LEN <M*)iQ » PEEK <49202):Q * PEEK <49202): PRINT 
MID* <HA*,T,1))I FOR K * 1 TO 301 NEXT : NEXT : PRINT : RETURN 
9000 F*<Û> » "EN CETTE PERIODE DE DESOLATION,IL N'Y A QUE LA BOWE EXPRE 
SS1QN QUI VOUS FERAPROGRESSER ..." 

9010 F*<1) - "RIEN NE SEMBLE SE PRODUIRE ..." 

9020 F*<2) * "FAITES UN EFFORT DE REFLEXION AVANT DE REPONDRE ..." 

9030 F*<3) » "CETTE PHRASE N'A AUCUN EFFET SUR LES CHOSES QUI VOUS ENTO 
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URENT" 

9040 V*<7> » *P0UR L'INSTANT TOUT VA BIEN ... B iV*<6) = V*<7):V*<5> = "VOU 
S ETES EN BONNE VOIE ... B :V*<4) » “CONTINUEZ COMME CELA ... b jV*< 3) = 
V$(4):V*<2) = "LE RONRONEMENT D'UN ORDINATEUR SE FAITENTENDRE ... B : 
V$(l) = -LE BRUIT SE PRECISE ..." 

9050 V$(0) = -VOUS TOUCHEZ AU BUT ... B ! RETURN 

10000 DATA -PCE7PBCPQMJ B ,"TMGPQMJ-, B P?K?QQCPN6CAC B ,"NPCLBPCNGCA 

C-, B C-, B C B , B 7AFCRCPEJ?AC B , B BCK7LBCPEJ?AC B ,"M B , B PCRMSPLCP?SACLRPC B , 0 B 
MLLCPEJ?AC B ,"MDDP6PEJ?AC B 

10010 DATA B CAMSRCPQCAPCR?6PC B , B GLRCPPMECPQCAPCR?GPC B ,"NPCLBPCMàHCR", 
B ?RRP?NCPMàHCR*, B KCRRPCK?QOSC B , B L B 
10015 DATA “L B , B L B 

10020 DATA B CLG?A B , B CLG?A\ B M B , B M B , B ?à?GQQCPK?LCRRCE?SAFC","747600 

CPK7LCRRCBPMGRC" , B P7K7QQCPCLTCJT*NC B ,"NPCLBPCCLTCJMhWC" 

10030 DATA B M B , B Q B , B C B , B Q B , B 0 B , B M B , B M B ,-M B 
10040 DATA B C B , B C B , B C B , B L B , B L B , B M\ B L B , B C B 
10050 DATA B 7NNJ60SCPK?GL B , B NMQCPK?GL B 
10060 DATA B RGJR B f B RGJR B , B F0M B - 
40000 GOSUB 10001 GOSUB 20001 PRINT U$ 


APPLE II 


MINOTAURE 

Vous devez sortir du labyrinthe avant qu'Alfred ne 
vous croque. Vous choisissez entre trois niveaux de 
difficulté, ou créez votre parcours. Vous pouvez disposer 
d'une boussole et connaître votre position (X,Y), et celle du 
monstre (XM, YM). La réflexion prime dans ce jeu en 3D. 


+r 

ST 




ET 

7EXT 




b • 

GOSUB 

1O000 


10 

PR I NT 

11 

Jf* Jf: * * * * *Jfs* tfr * * '** *** " ù 


i 2 

PRINT 

n 

jf:jf: ** * ** Jfc * if: ’4t * H 11 * * * * Jf; 11 “ 


14 

PRINT 

n 

* jf : ' Jf: * * * :fC Jf: Jf: * :f: *, * * :fî* * * * u ? 


1E 

PRINT 

n 

* Jf: Jfc Jf: :f:jf: * * * *** *•' * * Y *: " ; 


13 

PRINT 

n 

* Jf: jf: Jf: >f: ?f: s* * * * * * Jfc** ” 


20 

PRINT 

■ 

■ 

PRINT 


• 7 .’ o 

PRINT 

U 

1) CREATION D’UN LABYRINTHE ‘T 


24 

PRINT 

n 

2) SORIR SANS S’ETRE FAIT MANGER "ï: 

PRINT 

•“.n 
X- bJ 

PRINT 

n 

A " ; 


30 

PRINT 

n 

CURSEUR = FLECHE GAUCHE FLECHE DROITE" ; 


32 

PRINT 

n 

Z i : 

PRINT 

34 

PRINT 

n 

SPACE! CURSEUR INCOLORE/CURSEUR TRACEUR"; 


35 

PRINT 




36 

PRINT 

■i 

E = ENTREE * S = SORTIE * R=EFFACE E&S 5 


“T C 1 

LJ 

PRINT 

II 

D=FICHIER DISK * N=NOUVEAU LABYRINTHE "5: 

PRINT : PRINT 

40 

PRINT 

n 

JfJJf:*** MODE 3D * **** : '' ï 


42 

PRINT 

n 

SPACE=AVANCE" 


44 

PRINT 

n 

***** LE MINOTAURE VOUS AIME ***** "; 


46 

GET A*: 

GOSUB 10000 


5® 

HOME 




80 

VT AB 

(21): INPUT " NIVEAU DU LABYRINTHE si, 2, 3 ? " 










53 HOME : VTAB <21> 

72 IF NI = 1 THEN GOSUB 4000 

80 IF NI = 2 THEN GOSUB 4100 

90 IF NI = 3 THEN GOSUB 4200 

100 IF NI > 3 THEN GOTO 50 
130 L = ÜX = 1!Y = 1 
135 E = 0 :S = 0: XE = 1 :YE = lsXS = 1 : YS = 1 
137 : PRINT : PRINT : PRINT : PRINT 
140 GET PS: PRINT : PRINT : PRINT : PRINT 


Commentaires : 

Le programme occupe toute la mémoire. Ajouter des variantes risque de le 
bloquer. 

Pour dt. ner le jeu, écrire RUN MINOTAURE en majuscules. 


145 

COLOR= 

CA: PLOT X» Y 

147 

IF 

PS = 

CHRS (13) THEN GOTO 5E0 

150 

IF 

PS = 

CHRS (21) THEN X = X 4- 1 

1S0 

IF 

PS = 

CHRS CB) THEN X = X - Ü 

1S5 

IF 

PS = 

"N" THEN GOTO 50 

170 

IF 

PS = 

"A" THEN Y = Y - 1 

1S0 

IF 

PS = 

"Z" THEN Y = Y + 1 

133 

IF 

PS = 

11 R" THEN COLOR=.0:E = 0ü 

135 

IF 

PS = 

"D" THEN GOSUB 5000 

137 

IF 

PS = 

"E" THEN GOSUB 300 

1 O O 
l Oü 

IF 

PS = 

"S" THEN GOSUB 350 

1 90 

IF 

X > 

XMAX THEN X = XMAX 

200 

IF 

X < 

1 THEN X = T 

210 

IF 

Y < 

1 THEN Y = 1. 

220 

T C 

i. 

Y > 

YMAX THEN Y = YMAX 

225 

CA = 

= SCRNC X» Y) 

230 

IF 

PS = 

M " THEN L = - L 

250 

IF 

L = 

1 THEN COLOR= 10: PLOT X, 

260 

IF 

L = 

1 THEN ^GOTO 140 

270 

IF 

CA = 

0 THEN^CA = 15: GOTO 290 

230 

CA = 

= 0 


290 

COLORA 

CA! PLOT X, Y 

300 

GOTO 140 

310 

IF 

E = 

0 THEN GOSUB 7B0 

330 

IF 

S = 

0 THEN GOSUB 700 

340 

X = 

XE ! Y 

= YE 

345 

COLOR= 

0: PLOT X, Y 


REM ***** FLECHE DR GI “F ****>>- 
REM ***** FLECHE GAUCHE 


PLOT 



y. 



HGR 
XM = 


XSîYM = YS!RA = 


365 

N = 

1 : G = 

1 : MV 

= - 1 s GOTO 37 

370 

G = 

0: GET AS 


375 

PRINT : PRINT 

: PRINT : PRINT 

330 

IF 

AS = 

CHRS 

CS) THEN N - M 

390 

IF 

AS = 

CHRS 

(21) THEN ri = Ni 

400 

IF 

N = 5 

THEN 

N = 1 * 

410 

IF 

N = 0 

THEN 

N = 4 ' 

420 

IF 

N = 1 

THEN 

A = 0 : B = - 1 

430 

IF 

N = 2 

THEN 

A = 1 : B = 0 

440 

ÎF 

N = 3 

THEN 

A = 0:B = 1 

450 

IF 

N = 4 

THEN 

A = - 1SB = 0 

460 

IF 

AS = " 

" THEN G = lî GOTO ! 

455 

IF 

G = 1 

THEN 

HGR 

470 

IF 

G = 0 

THEN 

GOTO 370 

430 

VTAB (21) 



500 

HCOLQR= 3 



510 

HPLOT 907 

40 TO 1807 40 TO 1307 : 

530 

IF 

BOUS = 

1 THEN GOSUB -900 

540 

IF 

PLA = 

1 THEN GOSUB 930 

550 

GOTO 1000 


560 

INPUT "OPTION 

BOUSSOLE ? OUIC 

570 

INPUT "OPTION 

POSITION ? OUIC 


1 : G = 1 
1 : G = 


\£,s 






90,130 TC 90,40 


NON(07 
NON CO) 


5 BOUS 
î PLA 





590 

GOTO 310 


600 

IF SCRN( X + A, Y + B) - 0 THEN X = X + ftsY « Y 

4 - B:MV = MV ■+• 1 

610 

RA = - RA: IF SGN (RA!) = - 1 THEM GOTO 640 


615 

AM = SGN (X - XM):BM = SON (V - YM) 


617 

IF AM = 0 THEN GOTO 630 


620 

IF SCRN C XM + AM» YM) ) 0 THEN GOTO 630 


625 

XM = XM + AM: GOTO 640 


630 

IF SCRN C XM» YM + BM) ) 0 THEN GOTO 640 


635 

YM = YM + BM 


640 

IF ABS (X - XM) <4 THEN IF ABS (Y - YM) < 4 

THEN GOTO 570 

650 

IF XM = X THEN IF YM = Y THEN GOTO 2500 


660 

GOTO 465 


670 

PRINT " ATTENTION AU MONSTRE !!!" : GC 

IÏD 657/ 

690 

GOTO 465 


700 

XS = INT ( RND (1) * XMAX) 


705 

IF XS = 0 THEN GOTO 700 


710 

YS = INT ( RND (1) * YMAX) 


715 

IF YS = 0 THEN GOTO 710 


720 

IF SCRN ( XS» YS) > 0 THEN .GOTO 700 


730 

IF ABS CXS - XE) < C(XMAX / 2) + 1) THEN GOTO 

790 

740 

CDLOR= G: PLOT XS»YS 


750 

RETURN 


760 

XE = INT ( RND (1) * XMAX) 


765 

IF XE = 0 THEN GOTO 760 


770 

YE = INT ( RND Cl) * YMAX) 


775 

IF YE = 0 THEN GOTO 770 


7 30 

RETURN 


790 

IF ABS CYS - YE) < ((YMAX / 2) - D THEN GOTO 

700 

795 

GOTD 740 


600 

IF E = 1 THEN PRINT "DEJA UNE ENTREE": RETURN 


610 

CDLOR= l: PLOT X, Y 


620 

XE = X : YE = Y 


630 

E = 1 


640 

RETURN 


S50 

IF S = 1 THEN PRINT "DEJA UNE SORTIE": RETURN 


660 

COLOR= 6: PLOT X»Y 


S70 

XS = X : YS = Y 


SS0 

S = 1 


690 

RETURN 


900 

IF N = 1 THEN BD* = "NORD" 


910 

IF N = 2 THEN BO* = "EST" 


920 

IF N = 3 THEN BO* = "SUD" 


930 

IF N = 4 THEN BO* = "OUEST" 


940 

PRINT BO*» 


950 

RETURN 


980 

PRINT "X="!X,"Y="?Y 


935 

PRINT " XM=" ? XM» "YM=" » YM 


930 

RETURN 


1000 

C = X : V = Y : H = A: I = B 


1010 

IF N = 1 THEN A = - A:B = -B 


1020 

IF N = 3 THEN A = - A : B = - B 


1030 

D = 0 


1040 

CA = SCRN ( C + B» V + A) 


j. 050 

IF CA > 7 THEN CA = 3 


1 060 

HCOLOR= CA 


1070 

HPLOT 1B0» 40 TO 165,55 TO 165,115 TO 130,130 


1030 

E = CA 


1080 

CA = SCRNC C - B, V - A) 


1 100 

IF CA > 7 THEN CA = 3 


1110 

HCDLOR= CA 



36 



1120 

HPLQT 90,40 TO 105,55 TD 105,115 TO 30,133 




1130 

F = CA 





1 140 

IF SCRNC C + H,V + I) > 0 THEN GDTD 

3500 




1141 

C = C + H : V = V + I 





1145 

IF C = XM THEN IF V = YM THEN GDSUB 

500® 




1150 

CA = SCRN( C + B, V + A) 





1 1B0 

IF CA > 7 THEN CA = 3 





1170 

HCOLOR= CA 





1 1B0 

IF E = 0 THEN HPLQT 180,55 TD 165,55 

TO 155,115 

TO 

160- 

115 

1 190 

HPLQT 165,55 TO 155,65 TD 155,105 TO 

165,115 




.1200 

E = CA 





1210 

CA = SCRNC C - B,V - A.) 





1220 

IF CA ) 7 THEN CA = 3 





1230 

HCOLQR= CA 





1240 

IF F = 0 THEN HPLDT 90,55 TD 105,55 

TD 105,115 

TO 90,11 

5 

1250 

HPLOT 105,55 TO 115,65 TO 115,105 TO 

1K5,125 




1260 

F = CA 





1270 

C = C + H ! V = V + I 





1275 

IF C = XM THEN IF V = YM THEN GOSUB 

5100 




12B0 

IF C = XS THEN IF V = YS THEN GGS’JB 

£500 




1255 

IF SCRNC C,V:> > 0 THEN DQTD 3700 





12S7 

IF C = XS THEN IF V = YS THEN GOSUB 

6500 




1290 

CA = SCRNC C + B, V + A) 





1330 

IF CA > 7 THEN CA = 3 





1310 

HCOLOR= CA 





1320 

IF E = 0 THEN HPLOT 165, 65 TQ 155,65 

TD 155,105 

TQ 

165, 

105 

1330 

HPLDT 155,65 TO 150,70 TO 150,100 TD 

155,105 




1340 

E = CA 





1350 

CA = SCRNC C - B, V - A) 





1 360 

IF CA > 7 THEN CA * 3 





1370 

HCOLOR= CA 





13B0 

IF F = 0 THEN HPLOT 105,65 TO 115,65 

TO 115,105 

TG 

105, 

105 

1390 

HPLOT 115,65 TO 120,70 TO 120,100 Tü 

115, 105 




1 400 

F = CA 





1420 

C=C+H:V=V+I 





1425 

IF C = XM THEN IF V = YM THEN GOSUB 

6200 




1427 

IF C = XS THEN IF V = YS THEN GDSUB 

6600 




1430 

CA = SCRNC C, V) 





1 440 

IF CA ) 7 THEN CA = 3 





1450 

HCOLOR= CA 





1460 

HPLOT 120,70 TO 150,70 TO 150,100 TO 

120,100 TD 

120, 

70 


1470 

IF E = 0 THEN GOSUB 3000 





1480 

IF F = 0 THEN GOSUB 3050 





1490 

GOTO 370 





2000 

TEXT : GOSUB 10000 





2010 

PRINT " VOUS ETES SORTI EN ";MV;" 

COUPS 




2020 

GET A*: GOTO 6 





2500 

TEXT : GOSUB 10000 





2510 

PRINT " ALFRED VOUS TROUVE DELICIEUX 




2520 

GET A*: GOTO 6 





3000 

CA = SCRNC C + B, V + A) 





3010 

IF CA ) 7 THEN CA = 3 





3020 

HCQLOR= CA 





3030 

HPLOT 155,70 TO 150,70: HPLOT 150,100 

TO 155,100 




3040 

RETURN 





3050 

CA = SCRNC C - B, V - A) 





3060 

IF CA > 7 THEN CA = 3 





3070 

HCOLÜR= CA 





3080 

HPLOT 115,70 TO 120,70: HPLOT 120,100 

TO 115,100 




3090 

RETURN 
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3500 

CP = SCRN< C + H, V + I) 


3510 

IF CA = 6 THEN GOTO 2000 


3520 

IF CP > 7 THEN CP = 3 


3530 

HCOLOR= CP 


3540 

HPLOT 105,55 TO 165,55 TC 165,115 TO 105,115 TO 105,1 

> 5 

3545 

CP = SCRN C C + B + H, V -h I +- P) ‘ IF CP > 7 THEN CR - 

”7’ 

3550 

IF E = 0 THEN HCQLOR= CP 


3553 

IF E = 0 THEN HPLOT 180,55 TO 165,55s HPLOT 165,115 

TO IBS:115 

3555 

CP = SCRN C C + H - B, V + I - P) s IF CP > 7 THEN CR ~ 

7 

35B0 

IF F = 0 THEN HCOLOR- CP: HPLOT 90,55 TO 105,55s 
HPLOT 105,115 TO 90»155 


3570 

GOTO 1430 


3700 

CP = SCRN ( C, V) 


3710 

IF CP > 7 THEN CA = 3 


3720 

HCQLOR= CA 


3730 

HPLOT 115,65 TO 155,65 TO 155,105 TG 115,105 TO 115, 

■. E “- 

3735 

CA = SCRN( C + B,V + A>: IF CA ) 7 THEN CP = 7 


3740 

IF E = 0 THEN HCOLOR= CP 


3743 

IF E = 0 THEN HPLOT 165,-65 TD 155,65: HPLOT 155,105 

TD 165, “05 

3745 

CP = SCRN( C - B,V - P): IF CP > 7 THEN CP = ? 


3750 

IF F = 0 THEN HCOLQR= CP 


3755 

IF F = 0 THEN HPLOT 105,65 TO 115,55s HPL CT 115,105 

TC 1 105, 1-25 

3760 

GOTO 1490 


4000 

XMAX = 19SYMAX = 19: GR ; GOSUB 4500 


4010 

FOR I = 20 TO 39 


4023 

VL IN 0,39 AT 18 HL IN 0,19 AT I 


4030 

NEXT I 


4040 

VL IN 0, 19 AT 0: HLIN 0, 19 ÀT 0 


4 070 

RETURN 


4100 

XMPX = 19SYMAX = 38: GR : GOSUB 4500 


4110 

FOR I = 20 TO. 39 


4120 

VLIN 0,39 AT I 


4130 

NEXT I 


4140 

HLIN 0, 19 AT 0: HLIN 0, 19 PT 33 


4150 

VLIN 1,38 PT 0* 


4180 

RETURN 


4200 

XMPX = 38:YMPX = 38: DR : GOSUB 4500 


4210 

HLIN 0,39 AT 0: HLIN 0,39 PT 33 


4220 

VLIN 1,38 PT 0: VLIN 1,38 PT 39 


4250 

RETURN 


4500 

X = 2ï Y = 1 


4505 

COLOR= 15 


4510 

K = INT ( RND Cl) * NI *3) + 1 


4520 

ÏF Y + K > YMPX THEN VLIN Y, YMPX AT X-' GOTO 4530 


4540 

VLIIM Y, CY + K) RT X 


4550 

Y = Y + 2 + K: GOTO 4510 


4560 

IF X + 2 > XMAX THEN CDLGR= H RETURN 


■' 570 

X - X + 2:Y = 1 


•'.580 

GOTO 4510 


5000 

PRINT : PRINT : PRINT 


5010 

PRINT "** F I C H I E R//L. P B Y R I N T H 6 


5020 

PRINT 


5030 

INPUT " NOM DU LABYRINTHE ? "îL$ 


5040 

D$ = » » : REM ***:** CTRL-D ***** 


5050 

PRINT " SAUVERC S ) / CHARGERC C )" 


5060 

INPUT F* 


5070 

IF F* = "S" THEN PRINT D$?"BSAVE"î L$î",A1324, LÎ024" 

: GOTO 3100 

50S0 

IF F$ = "C" THEN PRINT D*î"BLOAD"?L*;" , A1024 n s GOTO 

5100 

5090 

GOTO 5060 


5100 

PRINT : PRINT : PRINT : PRINT 



38 






5110 E = 0:S = 0 


5120 

RETURN 











B000 

HCOLOR= 3 











B010 

HPLDT 115,65 

TO 

105,74 

TO 

1B5,74 

TO 

1 r:* e 

1 W ;^J> OO 





B020 

HPLOT 123,75 

TO 

123,100 TO 

i 130,110 TO 139, * 

. 10 

TO 147,100 

i G 

147 175 

B030 

RETURN 











B100 

HCOLOR= 3 











6110 

HPLOT 121,70 

TO 

115,76 

TO 

155, 76 

TO 

149,70 





6120 

HPLOT 127,77 

TO 

127,91 

TO 

131,97 

TO 

130, 97 

TO 

142,91 TO 

142, 

77 

B130 

RETURN 











5200 

HCQLOR= 3 











621 0 

HPLDT 124,75 

TO 

120,79 

TO 

150,79 

TC 

146, 75 





6220 

HPLOT 130,80 

TO 

130,90 

TO 

133,94 

TC 

136, 94 

TO 

139'90 TO 

13«, 

dL 

6230 

RETURN 











6500 

HCÜLÜR= 3 











6510 

HPLOT 145.75 

TO 

135,70 

TO 

125,75 

TO 

145,95 

TO 

135,100 Tü 

125 

.95 

6520 

RETURN 











5600 

HCOLOR= 3 



* 








BEI 0 

HPLOT 140,80 

TO 

135,75 

TO 

130,30 

TO 

140,90 

TO 

135,95 TO 

130r 

90 

6620 

RETURN 











10000 

FOR BOUCLE = 

= 1 

TO 25 










10010 PRINT 
10020 NEXT BOUCLE 
10030 RETURN 


APPLE II 

SPEEDWAY 

La course classique : vous devez éviter la collision avec vos 
adversaires en vous déplaçant 
latéralement avec les flèches. Un seul niveau de difficulté. 


•LIST 


4 

5 
B 
7 
9 


REM +:+: :+=* + + * >f: >H M :+: :+: >f: :+:>+■: Jf:*:* 

REM *=+•• ** 

REM ** SPEEDWAY JUNIOR ** 

REM **-** 

REM ** JUHEL PARENTEAU** 
REM *+ 

REM '+■+'• : + : + : + :! +:+ : * ** ** ** ***: *: ** 
REM 


10 

REM 

PRESENTATION ET 

1 1 

REM 


20 

HOME 

: PRINT : PRINT 

2 2 

PRINT 

" SPEEDWAY 

1 *7T 

j-'. O 

PRINT 

n 

24 

PRINT 

: PRINT : PRINT 

33 

PRINT 

: PRINT : PRINT 

31 

PRINT 


49 

GET Z$: GOSUB 5000 

50 

GOSUB 

2000 

B0 

CLEAR 


65 

REM 

INITIALISATION 

70 

A = 20 



<-s GAUCHE 



-> : DROITE" 


VOTRE SCORE AUGMENTE RU FUR ET R MESURE" 


39 








BS) X = 20s V = 34: C = 34 
90 GR 

35 fi = INT ( RND Cl) * 4) + 15 
37 PÜKE 7,X: POKE 6, Y: CfiLL 76B 
33 COLOR= 15 

99 VL IN 0,38 fiT 5: VLIN 0,39 ftT 33 

100 P = PEEK ( - 1E3S4) 

105 POKE 06, Y 

110 IF P = 136 THEN IF X > 11 THEN X = X - i: POKE 07,X: CfiLL 76S 

120 IF P = 149 THEN IF X <24 THEN X = X + 1: POKE 07,X: CfiLL 76S 

124 IF B + 3 < Y THEN GOTO 130 

125 IF fi > = X THEN IF A < = X + 3 THEN GOTO 1000 

126 IF fi < = X THEN IF fi + 3 > = X THEN GOTO 1000 

130 B = B + 1 

135 fi = fi + INT (. RND (1) * 3 - 1) 

140. IF B <35 THEN POKE 06,B: POKE'7, fi: CfiLL 76S 
145 IF B + 3 < Y THEN GOTD 200 

150 IF fi ) = X THEN IF fi t = X +• 3 THEN GOTD 1000 

160 IF A < •= X THEN IF A + 3 > = X THEN GOTO 1000 

200 IF B = 35 THEN B = 0: GOTO- 90 

300 SC = SC + l: PRINT SC 

500 GOTO 100 

S00 REM EXPLOSION 

1000 TEXT : GOSUB 5000 

1010 PRINT " ***** *** ** ** ** ** " 

1020 PRINT " ****** ***** ** ** *** ***" 

1030 PRINT ” ** ** ** ** ** **. **** ****'• 

1040 PRINT " ** ** ** ** ** ** ** *** ***• 

1050 PRINT " ***** ** ** ** ** ** * **" 

1060 PRINT " ***** ** ** ** ** ** **" 

1070 PRINT " ** ** ** ** ** ** ** **“ 

1080 PRINT " ** ** ** ** ** ** ** **" 

1090 PRINT " ****** ***** **** ** **'• 

1100 PRINT " **** *** ** ** ** M 

1200 GOSUB 5000 

1210 HOME : PRINT "VOTRE SCORE EST :"5SC 
1215 GET 1% 

1220 GET ZS: RUN 

1990 REM ******************** 

1991 REM * PROGRAMME * 

1992 REM * LANGAGE MACHINE * 

1993 REM ******************** 

2000 DATA 169, 3, 141,80, 3, 169,0, 133,8, 133, 9, 174, 80, 3, 1S3, 80, 3, 32, 100, 243 

2010 DATA 238, 80, 3, 24, 165, 7, 101,9, IBS, 24, 165, 6, 101,3, 32, 0, 248, 173, SI, 3 

2020 DATA 197, S, 240, 5, 230, S, 76, 11,3, 169, 0, 133, S, 173, 82, 3, 197, 9, 240, 5 

2030 DATA 230,9,76,11,3,96 

2050 FOR I = 0 TO 65 

2060 REfiD A 

2070 POKE 768 + I, A 

2080 NEXT 

3000 DATA 0, 4, 5, 0, 0, 0, 0, 0, 0, 5, 0, 0, 5, 0, 0, 15, 15, 15, 0, 0 

3010 DATA 15,15,15,0,5,0,0,5,0,0,0,0,0 

3020 FOR I = 0 TO 32 

3030 READ B 

3040 POKE 848 + I,B 

3050 NEXT I 

4000 RETURN 

5000 FOR I = 0 TO 24 

5010 PRINT 

5020 NEXT I 

5030 RETURN 


40 



APPLE II 


DOUBLE HAUTE 
RESOLUTION 

Ce programme fonctionne sur Apple II e muni 
d'une carte 80 colonnes étendues ou Chat mauve sur un 
Apple II c. Vous pouvez réaliser un dessin, 
le sauvegarder, le charger ou l'imprimer sur une Dot Matrix. 


3 LIST 

0: GOSUB 340: HCOLOR= 3: GOTO 


280 

20 PÜKE - 16363,0 

270 GOSUB 290 

30 HIMEM: 8100 

2S0 GOTO 130 

40 DS = CHRS C 4)ï PRINT DS; M PR#3 

290 : 

"! PRINT 

300 IF X < 0 THEN X = 0: GOTO 34 

50 DRIVES = "DI" 

0 

60 PRINT DS;"BL0AD HARD" 

310 IF Y < 0 THEN Y = 0 : .GOTO 34 

70 GOTO 560 

0 

80 POKE 49160,0:A = PEEK <49246 

320 IF X > 559 THEN X = 559: GOTO 

) :A = PEEK <49232)!A = PEEK 

340 

(49239) 

330 IF Y > 191 THEN Y = 191: GOTO 

90 A = PEEK (49165) 

340 

100 POKE 49234,0: POKE 49153,0: POKE 

340 XX = INT <X / 7):PG = XX - 2 

49156,0: POKE 49154,0: POKE 

* INT CXX / 2) 

49236,0 

350 XX = INT (XX / 2) * 7 + X - 

110 HGR : POKE 49237,0: CALL 624 

7 * XX 

50: POKE 49236,0: POKÈ 49234 

360 POKE 49237,0: IF PG THEN POKE 

,0 

49236,0 

120 HCOLQR= 3 

370 IF XX > 279 THEN RETORN 

130 GET RS 

380 : 

140 IF RS = " I " THEN Y = Y - 1: GOTO 

390 HPLOT XX, Y 

260 

400 POKE 49236,0 

150 IF RS = "O" THEN X = X + 1:Y 

410 RETURN 

= Y - 1 : GOTO 260 


160 IF RS = "L" THEN X = X + 1: GOTO 

420 REM AIDE MEMOIRE COMMANDES 

260 

430 TEXT : HOME 

170 IF RS = THEN X = X + 1 :Y 

440 PRINT " 

= Y + 1 : GOTO 260 

"?: INVERSE : PRINT 

130 IF RS = THEN Y = Y + 1: GOTO 

"* TABLEAU DES COMMANDES *": 

260 

NORMAL : PRINT : PRINT 

190 IF RS = "M" THEN X = X - 1:Y 

450 PRINT " TOUCHES DE D 

= Y + 1 : GOTO 260 

I RESTIONS DU CURSEUR : 

200 IF RS = "J" THEN X = X - 1 : GOTO 

IJ I 0" 

260 

460 PRINT 

210 IF RS = "U" THEN X * X - 1:Y 

470 PRINT " 

= Y - 1 : GOTO 260 


220 IF RS = CHRS <13) THEN GOTO 

J L" 

610 

480 PRINT 

230 IF RS = "A" THEN E = 0: GOTO 

490 PRINT " 

280 


240 IF RS = "E" THEN E = 1: GOTO 

M 

280 

500 PRINT 

250 IF RS = "?" THEN GOSUB 420: 

510 PRINT " (RETURN) - MENU PRIN 

GOTO 280 

CI PAL <?> 

260 IF E = 1 THEN GOSUB 290: HCOLOR= 

- AIDE-MEMOIRE COMMANDES" 






520 PRINT " (A) - ALLUME LE 

CURSEUR CE) 

- ETEINT LE CURSEUR" 

530 UTAB 23: PRINT - TAPEZ SUR < 
ESPACE; POUR RETENIR AU DES 
SIN"; : GET R* 

540 IF R$ = " " THEN GOSUB 1470 
î RETURN 
550 GOTO 420 

560 REM PRESENTATION & MENU PRI 
NCI PAL 

570 TEXT : HOME 
580 UTAB 10: PRINT " 

";î INUERSE 
: PRINT "- D . H . R —": NORMAL 

590 UTAB 17: PRINT M Le programm 
e ''Double Haute Resolution' 
ne -fonctionne que sur un APP 
LE.He munie d'une carte 80 
colonnes etendue ou chat mau 
ve ou sur un APPLE Hc" 

600 UTAB 23: PRINT “ TAPEZ UNE 
TOUCHE:";: GET R* 

610 REM MENU 
620 TEXT : HOME 

630 UTAB 10: PRINT M 1) NOUUEAU 
DESSIN" 

640 UTAB 12: PRINT " 2) SAUUEGAR 
DE DESSIN" 

650 UTAB 14: PRINT " 3) CHARGEME 
NT D'UN DESSIN" 

660 UTAB 16: PRINT " 4) IMPRESSI 
ON DU DESSIN SUR IMPRIMANTE 
D.M.P." 

670 UTAB 18: PRINT " 5) REPRISE 
DU DESSIN" 

680 UTAB 20: PRINT " 6) FIN" 

690 UTAB 23: PRINT "UOTRE CHOIX: 

11 i 

700 GET RS 

710 IF R$ = T THEN GOSUB 830: 
GOTO 80 

720 IF Rf = “2VTHEN GOSUB 780: 
GOTO 770 

730 IF R$ = "3" THEN GOSUB 890: 
GOTO 770 

740 IF R$ = "4" THEN GOSUB 1280 
: GOTO 770 

750 IF R$ = "5"' THEN GOSUB 830: 

GOSUB 1470:.'GOTO 120 
760 IF R$ = "6" THEN END 
770 GOTO 610 

7S0 HOME : INPUT "NOM DE L'IMAGE 
A SAUUERs";NQMS 

790 PRINT DS;"BSAUE";NOMS;"1,AS2 
000,LS2000,";DRIUES 
S00 POKE 49237,0: PRINT DS;"BSAU 
E ";NOMSi"2,AS2ÜOO,LS2ÛOÜ,"; 

DRIUES 

310 POKE 49236,0 
820 RETURN 
330 HOME 


840 UTAB 1: PRINT " * ATENTION * 

": PRINT " PENDANT LE DESSIN 
UOUS POUUEZ" 

850 PRINT " TAPER ( INUERSE 

: PRINT NORMAL : PRINT 

" ) POUR AIDE-MEMOIRE DES CO 
MMANDES" 

360 UTAB 22: PRINT " TAPEZ UNE T 
OUCHE"; : GET RS 
870 RETURN 
880 : 

890 HOME : UTAB 22: PRINT "POUR 
EFFECTUER UN CATALOG REPONDR 

E ? " 

900 UTAB 23: PRINT "POUR RETOURN 
ER A L'ECRAN PRECEDENT CR " 

910 UTAB 5: PRINT " Le programme 
D.H.R. sauvegarde l'image s 
ur la disquette en deux -fich 
iers ayant le meme no 

m suivi,l'un du chif-fre '1', 
l'autre du chi-f-fre '2'." 

920 PRINT " Pour la charger il v 
ous su-f-fit d'ecrire le nom g 
enerique sans le nombre 1 ou 
2 " 

930 UTAB 12: HTAB 10: INPUT "NOM 
GENERIQUE DE L'IMAGE A CHAR 
GER ";AS 

940 IF LEN (AS) = 0 THEN RETURN 

950 IF < ASC (AS) < 65 OR ASC ( 

AS) > 90) AND AS < > "?" THEN 

RETURN 

960 IF AS < > "?" THEN 1030 

970 HOME 

980 CALL 1002 

990 PRINT DS;"CATALOG "jDRIUES 
1000 PRINT : INPUT "PRESSER LA T 
OUCHE RETURN POUR CONTINUER 
" ; AS 

1010 GOTO 890 
1020 : 

1030 GOSUB 1470 
1040 : 

1050 POKE 49153,0 
1060 POKE 49236,0 
1070 POKE 49156,0 
1080 POKE 49154,0 
1090 : 

1100 HOME : H0R : PO KE 49234,0: POKE 
49237,0: CALL 62450 
1110 POKE 49236,0 
1120 ONERR GOTO 1200 
1130 PRINT DS ;"BLOAD ";AS ;"1,";D 
RI UES 

1140 POKE 49237,0 
1150 PRINT DS ;"BLOAD ";AS ;"2,";D 
RI UES 

1160 POKE 49236,0 
1170' POKE 216,0 
11Ô0 HOME : TEXT 
1190 RETURN 
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1200 

REM ERREUR CHARGEMENT 


1370 

IF 

ASC (A*) < 49 

OR 

ASC ( 

1210 

TEXT s HOME : UTAB 11 : HTAB 


A*) 

> 53 THEN 1290 




20ï INUERSE 


1380 

IF 

A* = "5" THEN 

RETURN 

1220 

PRINT “ACCES A CE FICHIER I 

1390 

Al = 

1 : IF A$ = "3" 

OR 

A* = 


MP0SSIBLE": NORMAL 



Il ^ il 

THEN Al = 2 



1230 

UTAB 23: PRINT “APPUYEZ 

SUR 

1400 

A2 = 

1 : IF A* = “2" 

OR 

AS = 


UNE TOUCHE POUR CONTINUER " 


h 4 ii 

THEN A2 — 2 




: GET A* 


1410 

REM 




1240 

P0KE 216,0: GOTO 880 


1420 

REM 




1250 

REM V ISUALISATION D'UNE 

IM 

1430 

P0KE 768,0: IF Al 

= 2 

THEN 


AGE 



P0KÉ 768,200 



1260 

GOSUB 1470 


1440 

P0KE 769,00 : IF A2 

= : 

2 THEN 

1270 

INPUT A*: HOME : TEXT : 

RETURN 

1450 

POKE 769,200 

CALL 16432 



1280 

REM IMPRESSION 


1460 

RETURN 



1290 

HOME 


1470 

REM 




1300 

UTAB 7: HTAB 28: PRINT • 

1 ) 

1480 

POKE 49160,0 




TAILLE 560*192, NORMALE" 


1490 

A = 

PEEK ( 49246) 



1310 

UTAB 10: HTAB 23: PRINT 

“2) 

1500 

A = 

PEEK (49232) 




TAILLE 560*192, INUERSE" 


1 510 

A = 

PEEK (49239) 



1320 

UTAB 13: HTAB 28: PRINT 

"3) 

1520 

A = 

PEEK (49234) 




TAILLE 1120*384, NORMALE 

II 

1530 

POKE 49165,0 



1330 

UTAB 16: HTAB 28: PRINT 

"4) 

1 540 

RETURN 




TAILLE 1120*384, INUERSE 

ii 






1340 

UTAB 19: HTAB 28: PRINT 

" 5) 







RETOUR AU MENU GENERAL" 






1 

1350 

UTAB 23: INPUT "U0TRE REP0N 



Commentaires : 

Pour dessiner, utiliser les louches U ! O J L M. 


SE ( 1 . . 5 > ;A* 




Pour allumer et éteindre le 

curseur, A et B. 

1360 

IF LEN .(A$) < > 1 THEN 

12 
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ATARI ST 


AWARI 

L'Awari est un jeu de stratégie traditionnel et très 
populaire en Afrique. Le cadre se dessine : chacun dispose de 
sept cases dont un pot qu'il faut remplir du maximum de 
pions possible. Au début du jeu, chaque case contient trois 
pions. On les sème à tour de rôle en pointant dans la case de 
départ choisie. Si le dernier pion semé arrive dans son 
propre pot, on rejoue et que le meileur gagne ! 


10 ' AWARI , Sotiropoulos C. le 3/10/1986 

30 

50 fullw 2:clearw 2sclearsrandomize Ose=int(rnd+.5) 

52 if peek (systab) =2 then gosub mediumsgoto 70 

54 if peek(systab)=1 then gosub highsgoto 70 

56 end 

70 effect=l6:gosub effet:gosub awaseffectue 

90 gosub effetsdim b(16),k(16),g(16),h(16),xxx(20) 

110 for ww-1 to 19:xxx(ww)=-3snext ww 

130 for i=l to 13s b(i)=3:nexts b(7)=0:b(14)=0 

150 linef 20, mml, 608, mipl s 1 i nef 20, mm2,608, mm2: 1 i nef 20, mm 1 + 1,608, mmi +1 
170 linef 20, mm2-l, 600, mm2‘-l 

190 linef 60,mm3,570,mm3:1inef 60,mm4,570,mm4 







210 

•for i =60 to 595 step 05 


230 

linef i ,mm3, i ,mm2:1 i nef i,mml,i,fnm4 


250 

if i=60 or i=570 then linef i,mm2,i,mml 


270 

nextscolor 1,1,2,3,2:fi11 mm5,mm6:effect=0;gosub effet 


290 

gotoxy mx, mi ne: ?"M0I ** : gotoxy my, mi nel : ?" VOUS" 


310 

start:j=l4:j1=0:effect=4:gosub effetsfor i=mx+l to my 

step pas:j=j-1 

330 

gotoxy i,0:print b(j)sj1=j1 + 1 :gotoxy i,12:?b(j1):next 


350 

gotoxy es,10:7b(14):gotoxy qq,10s?b(7):effect=l:gosub 

ef f et 

370 

j=55:j1=40:for i=mx+l to my step pas:j = j-1 :gotoxy i,5: 

?chr$(j) 

390 

gotoxy i,15:jl=jl+l:?chr$(jl):next 


410 

effect = 16: gosub effet:gotoxy qq,5:?chr$(4):gotoxy q,15 

: ?chr$(3) 

430 

gotoxy qq,15:?chr$(1):gotoxy q, 5:?chr$(2):effect=0:gosub effet:goto game 

450 

effetspoke contr1,106:poke contr 1 +2, 0:poke contrl+6,1 


470 

poke contrl+10,1 :poke i ntin,effect: vdi sys 


490 

return 


510 

awa:if peek(systab)=2 then col or '2,3 


515 

gotoxy awe,2:print "A*':gotoxy awe+2 , 2: pr i n t'*W" 


530 

gotoxy awe+4,2:print "A"jgotoxy awe+6, 2: print "R" :gotoxy awe+B, 2: print"I" 

550 

return 


570 

key: gotoxy avousl, al8: print." gotoxy avousl,alB 


590 

touch$=input$( 1 ) 


610 

return 


630 

game:b=0:jeu=345:trouve=.8:super=99 


650 

for i=l to 6 


670 

if b(i)<>0 then b=l 


690 

next:if b=0 goto résultat 


710 

b=0:trouvel = 1948:xxx(0)=xxx(1):xxx(5)=xxx (5) +1 


730 

for i=8 to 13 


750 

if b(i)<>0 then b=l else xxx(0)=not xxx(0) 


770 

next:if b=0 goto résultat 


790 

if e=l then goto i190 


810 

gotoxy avons,al0:?"A vous de jouer gosub key:a 

=val(touché) 

030 

if a<1 or a>6 goto 810 


050 

if b(a)=0 goto 810 


070 

ef fect = l:sup=super 


890 

gosub effet:gotoxy avousl,alB:?chr$(a+4B):gosub 1070 


910 

if e=l and a=14 goto start 


930 

i f a=7 goto start 


950 

if e=l then e=0:goto start 


970 

e=l: goto start 


990 

a=j:sup=trouve+trouvellabs(b-super)-xxx(5)+xxx(1) 


1010 

for z=1 to 14 


1030 

b (z > =g <z) 


1050 

next 


1070 

p=b(a): b(a)=0:for ww=6 to 10:xxx(ww)=b(a)+p: next 


1090 

for i=l to p 


1110 

a=a+l:if a=15 then a=l 


1130 

b <a)=b(a)+1 :xxx<2)=0 


1150 

next:sup=sup-l*.3 


1170 

return 


1190 

gotoxy avons,alB:?"Je joue en .“ 


1210 

for j=l to 14 


1230 

g(j)=b ( j) 


1250 

next:sup=not sup or (trouve and trouvel):pass=-l 


1270 

if b(13)=1 goto 2110 


1290 

if b(13)>=3 goto 2110 


1310 

if b(12)>=3 goto 2130 


1330 

if b(11)>=4 goto 2150 


1350 

for j=13 to 0 step pass 


1370 

if g(j)=0 goto 1530 


1390 

gosub 990 


1410 

if a=14 goto 2210 


1430 

h(j) =a: sup=sup+h(j) 
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1450 for u=9 ta 13 
1470 z=u+b(u) 

1490 if z=14 then k(j)=k<j)+l 

1510 next u:sup=0:super=sup:swap trouve,trouvel 
1530 next j:sup=trouvel:swap trouve,super :jeu=sup 
1550 z =0 

1570 i-f g ( 12) >=5 goto 2130 

1590 i-f g (8) =*1 goto 2190 else if g(9)=l goto 2170 
1610 ' 

1630 for J=8 to 13 
1650 u=k<j):sup=k(j) 

1670 if u>z then gosub 2230 
1690 next j:sup»k(j)-trouve 
1710 if z>0 then goto 1950 
1730 z =8 

1750 for j=0 to 12 
1770 u=»h(j) 

1790 if u>z and u>0 then gosub 2230 
1B10 next 

1030 if a>7 then goto 1950 

1050 z=7:jeu^O:sup=super and &h254:trouve=trouvel or 1 

1070 for j=0 to 13 

1890 u=h(j):jeu=jeu+l 

1910 if u<z and u>0 then gosub 2230 

1930 next 

1950 coup s for u=0 to 13 
1970 k(u)=0:h <u)=0 
1990 next 
2010 c=a-7 

2030 gotoxy avousl,alB:effect=l:gosub effet:? chrï(c+40):sound 1,12,7,4,10 

2050 sound l,0:for tempo^l to 3000:next:effect=0:gosub effet 

2070 j*a:jeu=0:sup-999 

2090 gosub 990:goto 910 

2110 a=13:goto coup 

2130 a-12:goto coup 

2150 a=l1 : goto coup 

2170 a=9:goto coup 

2190 a=8:goto coup 

2210 a=j:goto coup 

2230 z=u:a=j:sup=z:sup*j+6 

2250 return 

2270 résultat:if b<14)>b<7) goto comp 
2290 if b(14)<b(7) goto joueur 

2310 gotoxy avous, alB: ?*'Part i e nulle " : e=i nt (rnd*. 5) : goto 2370 

2330 joueur :gotoxy avous,al0:?"Vous avez gagné ":e=l:goto 2370 

2350 comp:gotoxy avous,al8:?"J’ ai gagné e=0:joue=0 

2370 gosub keysif touch$*" " goto 130 

2390 clearw 2:end 

2400 medium:minel=10 

2410 mml=100:mm2=B4:mm3-66:mm4=12ü:mm5=50Û:mm6=90:awe=2B:mine-9 

2415 mx=0:my=50:pas=9:qq=64:q=4:cs=2:avous=20:avous1=52:alB=16:return 

2420 high:minel=10 

2430 mml=200:mm2=16B:mm3=136:mm4=232:mm5=500:mm6=18û:awe=14:mine=10 
2440 mx=4:my=31:pas=5:qq=34:q=2:cs=l:avous=10:avous1=26:alB=18:return 
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ATARI ST 


JACK POT 

Vous partez pour Las Vegas, l'enfer du jeu... 
Devant vos yeux éblouis se dessinent les trois cases d'un 
jackpot. Cinq dollars pour miser. Si vous perdez, 
c'est la ruine ! Et si la combinaison « Jack » s'affiche à 
l'écran, soyez heureux, vous avez décroché le gros lot ! 


10 

'JACKPOT by Y. Belt chenko <c> 1986 


20 

.•* 


30 

f u 1 1 w 2 : c 1 earw 2 


35 

ga$< 0j=chr$< 9) : ga$( 1 )=cf\r$< 1 1 ) ï ga$< 2> = " " : ga$< 3>=chr î ( 1 ) 


38 

ga$< 4) = "J":ga$< 5) = "A”sga$<6>="C":ga$< 7> = “K" 


40 

e ff ec t=l 6 : gosub ef fe t s a$=" JACKPOT " i f or t = l to 7:got oxy 28+t*2,i 


50 

print mi»t,1):next:effect=0:gosub effet 


60 

xb=l64 :yb=3o: 1b=50:hb=l0 ï gosub box 


70 

gotoxy l,3:print "vous disposez de 


80 

somme=50:gosub money 


90 

print:gotoxy 45,4:print "START":xb=402:gosub box 


100 

xb=502:gosub boxigotoxy 57,4:print "QUIT" 


105 

ta i 11 e=30 : gosub g i an t:-for t=l to 4; gotoxy 1 5+ t*8,9 : pr i n t c h r $ < 9 > 


107 

next: tai11e=9:gosub giant 


1 10 

yb=61: 1b=40:hb^SS ï for t=l to 4 î xb=l21+t*72:gosub box 


120 

1 i ne-f xb+41 , yb+ 1 , xb+41 ,yb+33: 1 i nef xb+2, yb+33,xb+41 , yb+33 : nex t 


125 

xb=l68 :yb=55:1b=306:hb=88:gosub box:col or 1,1,1 , 3,2 :fi1 1 170,60 


128 

1 i ne* xb+1b+1 , yb+2, xb+ 1 b+ 1 , yb+hb+ 1 :1 i ne-f xb+2 , yb+hb+ 1 , xb+ 11<+ 1 , yb+hb+ 1 

130 

gosub mouse 


140 

qt=(xm<552 and xm>501 and ym<46 and ym>36 and button=l> 


150 

st=(xm<452 and xm>401 and ym<46 and ym>36 and button=l) 


155 

i * st=-l then goto début else i-f qt=-l then end 


1 60 

goto 130 


400 

début : 


410 

game*="": j k$="": tai11e=30:gosub giant:for time=l to 60: for t=l to 

4 

420 

gotoxy 15+t*8,9 


430 

• j k$=ga$<int<rnd*8)):pr i nt j k$ 


435 

nextsnextïfor t=l to 4:gotoxy 15+t*8,9 :jk*=ga$<int<rnd*8>>:bon=0 


440 

print jkS:game*=game$+jk$:next:print chr$<7): tai11e=9:gosub giant 


450 

for t=0 to 7ïif instr<game$,string$<3,ga$(t)))>0 then bon=l© : goto 

500 

460 

if instr < game$,ga*(t)+ ga*< t ) ) >0 then bon=2:goto 500 


470 

nex t 


475 

if game$="JACK" then gosub jack 


460 

if game$=string$<4,chr$<9)) then bon=20 


490 

if game$=string$<4,chr*<11 )) then bon=10 


495 

if bon=0 then bon=-5 


500 

somme=somme+bon 


510 

if somme>9999 then gotoxy 2,4:print " somme maximale atteinte" 


520 

if somme>9999 then gotoxy 2,4:print "vous repartez a zéro ..." 


525 

for t=l to 500:next 


530 

if somme >9999 then gotoxy 2,4:print " 11 : somme-10 1 

535 

if somme <=0 then gotoxy 2,4:? "uous etes a. sec ! 11 : sound 0,0,0,0,25 

5 : end 

540 

gosub money:goto 160 


600 

jack: 
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61 0 

gotoxy 27,4sprint " JACKPOT” : -for t=l to 1 000; nex t 

620 

gotoxy 27,4 : prin t " 

" :bon=200+in t(rnd*lû1> 

630 

r e t u r n 


999 

x$=inpu t$<1> ; end 


1000 

box : 


1010 

1 ine-f xb , yt>, xb+ I b , yb 

: 1 ine-f x b+ 1 b, yb, x b+ 1 b, yb+ h b 

1 0 20 

1 i ne + xb+1 b,yb+hb,xb 

, yb+hbîl inet' xb, yb+hb , xt>, y b 

1030 

r e t u r n 


2000 

moneys 


2010 

a$=" “ ;mon*=str$< somme > s -for t=2 to len<ffion*-> 

20 20 

a$=a$+chr$< *sc (m i d*(mon$ , t, 1 ) ) -32) snex t 

2036 

gotoxy 19,4:print a$+str i ng$<4-1 en < a*) , " "> + "î- " 

2040 

re turn 


3080 

e-f-fet : 


3010 

poke contr1 ,106 spoke 

c on t r 1 + 2,0 : p ok e c on t r 1 + 6,1 s p ok e >: on t r i + 1 0 , ! 

3020 

poke intin,ef-fect 


3030 

vdisys 


3040 

return 


4000 

mouse ; 


4010 

poke c on t r1 ,124 s p ok e 

contr1+2,0 :poke contri+6,& 

4020 

vd i s y s 


40 30 

bu t ton=peek(in tou t > : 

xm=p e e k < p t sou t)s ym=p e ek <p t sou t + 2>-26 

4040 

return 


4775 

i+' game$="JACK" then 

gosub jack 

5000 

g ian t : 


5010 

poke contrl,107:poke 

c on t r 1 + 2,0 : p ok e c on t r 1 + 6,1 : p ok e i n t i n , t a i 1 1 e 

5020 

ud i sys 


50 30 

return 



ATARI ST 


SKI 

Un jeu de saison qui vous invite à de belles 
glissades enneigées. Attention à bien suivre les courbes du 
couloir, chaque incartade vous coûtant 
des points. Chaussez vos skis et restez vigilants ! 


10 ' SKI b y Y.Be1tchenko <c) 1986 

20 

39 -f u 1 1 w 2 : c 1 earw 2 

40 e -f -f ec t = l 6 ; gosub e-f -f e t : a$=" GO" : -f or t = l to 2 

50 gotoxy 33+t,0sprint m i d$< a$ , t , 1 )s nex t : ef+'ec t = 0 : gosub e-f-fet 

60 -for t= 1 to 17:gotoxy 31, t sprint chr$( 14) j : go fcoxy 38,'t sprint chr$(15) ; snext 

62 scor e = l 00 s x j = 0 s gosub mousesi-f button=0 then goto 62 

70 px~31:randomize 0:ine = lï-for t=l to 209 

71 i-f ine=l0 then ine=l 

72 i-f ine>l then px=px+ ( rnd< 0 > > . 5>-( r nd< 0 > < . 5) : i n e= i ne + I : go to 75 

73 px=px + C rnd>.5)-<rnd<.5)sine=ine+1 

75 i-f px>40 then px'=40 e 1 se i-f px<5 then px=5 

78 gotoxy px,17:print chr$(14)gotoxy px+?,17:print chrî-(15> 

80 gosub keysxj=xj+(status=2)-(status=l>sit xj<-28 then x.j=-2S 

90 i-f xj>28 then xj=28 

100 i-f 33+xl>=px+10 then score=score-1 

110 i-f 33 + x 1 <=px-4 then score=score-1 

120 gosub a-f-fj 

130 nextsgosub posonsgoto 10 

135 poson s 
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14Ô 

gotoxy 1,5 sprint "score=“; score : for t =1 to 1 000 snext : r*turn 

1000 

box : 



10 10 

linef xb , yb, 

xb+1 b,yb 

: linef xb+1 b,yb, xb+ 1 b,yb + hb 

1020 

linef xb+1 b, 

yb+hb,xb 

,yb+hbslinef xb,yb+hb,xb,yb 

1030 

return 



2000 

effet : 



2010 

poke contrl, 

106 :poke 

contr1+2,0 :poke contr1+ 6 ,1 :poke contr!+1ÿ,1 

20 20 

poke intin,effect 


20 30 

u dis/s 



20 40 

r e t u r n 



30 00 

mou se : 



30 1 0 

poke contrl, 

124 :poke 

contr1+2,0 :poke contrl+6,0 

30 20 

v d i s/s 



3030 

bu t ton=peeK ( 

in tou t)s 

x p os=pe e k < p t sou t): yp os=p e e k C p t sou t + 2 >-33 

3040 

r e t u r n 



40 00 

key : 



4010 

poke contrl, 

128 : poke 

contr 1 +2,0 : poke contrl +é,Ü 

4020 

u d i s y s 



4030 

s t at u s=peek ( 

i n tou t ) 


4040 

r e t u r n 



5000 

af f j : 


* 

5005 

gotoxy 33+xl 

,6ï prin t 

" "î gotoxy 33+x 1 ,7:pr in t “ " 

5010 

gotoxy 33 + xj 

,7 s pr in t 

chr$<28)+chr*<2?> 

50 20 

gotoxy 33+xj 

,S : prin t 

chr*(30>+chr*<31 ) 

5030 

x 1 =x j 



5050 

r e t u r n 




ATARI ST 


MUSIC 


Les mélomanes ne sont pas oubliés. Voici un programme 
d'édition musicale très bien réalisé. Vous pouvez déterminer 
les notes, les octaves, la durée et l'amplification. 

Il suffit de cliquer l'option à l'aide de la souris. 


10 "MUSIC 1/10/19B6 Sotiropoulos c. 

20 * POUR QUITTER LE PROGRAMME, EN MOYENNE RESOLUTION CONTROL+C 

25 "EN HAUTE RESOLUTION POINTEZ SUR FIN 

30 fullw 2sclearw 2:clearsdim a$<21),note(91),octave(91),vol urne<91) 

35 if peek(systab)«2 then gosub medium: goto 40 
37 if peek(systab)=1 then gosub highsgoto 40 

39 end 

40 volume=l1 s octave=4;voice=ls duree=25:index=0 
50 dim duree(100):yy=10 

60 aS(l)= M D0 ";a*(2)« M D0# ,, :a*<3)="RE " : a* (4) ="RE# U s a* (5) = "MI ":a*(6)="FA " 

70 a$ (7) ="FA# M : a$ (B) “”S0 " s a$ (9) ="S0#" s a$ ( 10) ="LA " : a$ ( 1 1 ) = "LA# " : a$ < 12) = “SI 11 
00 a*(13)-chr*(17): a*<14)*chr$( IB) s(15)=chr*(19): a*<16)=chr*(20) 

90 a*(17)="Joue";a*<18)="Eff": a*(19)«"Fin " 

100 b$ < 1 ) «"Duree 1 " : b* (2) «"Duree 2" :b$ (3) ="Duree 3" ; b$ (4) ='*Duree 4" 

110 b$(5)="Duree 5"s b*(6)= "Ampli 1"sb$(7)="Ampli 2"s b*(8)= "Enleve" 

120 gotoxy troi s, 0: pr int chrSdl);" :":gotoxy troi s, 2: print "0 
130 gotoxy trois,4:print "D s":gotoxy trois,6:7 "A 
135 linef 228,mm1+3,690,mm1+3 

140 linef 224,mml+5,690,mml+5s1inef 224,mml+5 ,224,mm2 

141 linef 220,mml+4,690,mml+4 

142 linef 232,mml + 1,690,mml + 1; 1inef 236,mml,690,mml 
144 linef 240,mml-2,690,mml-2 
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145 effect=16:gosub effet:gosub prtnotes 
150 effect=2:gosub effet:gosub affiche 

160 gosub mouse:f1ag=0:if xpos<145 and xpos>80 then 100 
170 flag=l:if xpos>250 and xpos<335 then 100 else 160 
100 choix=int((ypos-sub)/matr):if button=0 goto 160 
190 ' 

200 choix=choix+6:gosub affiche:effect=l 

205 if choix>=17 and peek(systab)=2 then effect=2:goto 160 
210 if flag=l and choix>0 then effect=2sgoto 160 

220 if flag=l then gosub effet:gotoxy mmx 1, choix s ?bi (choi x + 1 ) ; 11 *' sgoto 310 

230 » 

240 gosub effet:gotoxy mmx,choix:print ai(choix + 1);" 

250 if choix>=10 then clearw 2:effect=0:gosub effet:end 

260 effect=2sgosub effet:if choix<=0 then choix=0:gosub nota:goto 160 

270 if choix>11 and choix<16 then gosub octavsgoto 160 

200 if choix=16 then gosub play:goto 160 

290 if choix=17 then gosub annule:goto 160 

295 ’ 

300 if flag=0 then gosub nota:goto 160 

310 effect=2:gosub effet:gosub other:goto 160 

320 affiche:effe=effect:effect=0:gosub effetsgotoxy l,0:print chri(ll); 

330 print chri(11):gotoxy l f 12:print "Octave":effect=effe:gosub effet 
340 for i=0 to last:gotoxy mmx,i:print ai<i+1); :next isprint 
350 for i=0 to 7:gotoxy mmx1,i;print bi<i+1); :next i 
355 if peek(systab)=2 then return 

360 for i=19 to 325 step 17:linef 00,i,144,i:next 

370 linef 00,0,00,325:1inef 144,0,144,325:1inef 145,0,145,323 

300 linef 250,0,250,130:1inef 335,0,335,130:1inef 336,0,336,136 

390 for i=19 to 130 step 17:linef 250,i,335,i:next 

400 return 

410 mouse: 

420 poke contrl,124:poke contr1+2,0:poke contrl+6,0 
430 vdisys 

440 button=peek(intout):xpos=peek(ptsout):ypos=peek(ptsout+2) 

450 ypos=ypos-coord 
460 return 
470 effet: 

400 poke contrl,106:poke contrl+2,0:poke contrl+6,1 :poke contrl + 10,1 
490 poke intin,effect 
500 vdisys 
510 return 

520 nota:if index=ttl then gosub play:index=0:goto 160 
530 ct=ct+l:effe=effect:effect=4:gosub effet 

540 gotoxy xx,yy:?ai(choix+1):xx=xx+plus:if ct=ltt then xx=xxp:yy=yy+l:ct=0 
550 effect=effe:gosub effet 

560 index=index+l: note(index)=choix + 1: octave(index)=octave 

570 volume(index)«volume:duree(index)«duree:gotoxy quatre,0:?aî(choix+1); 

5B0 print" return 

590 octav:octave=choix-l1:gotoxy quatre,2:print choix-11 :return 
600 play:if index=0 then return 

610 for i=l to index:sound voice,vol urne<i),note(i),octave(i),duree(i) 

620 sound 1,0:next 
630 return 
640 annule: 

650 index=0:for i=l to 90:note(i)«0:next:gosub enleve 
660 return 
670 other: 

600 if choix<5 then duree=choix+20:gotoxy quatre,4:?choix +1 :return 
690 if choix=5 then volume=l1 :gotoxy quatre,6:print " 1":return 
700 if choix=6 then volume=13:gotoxy quatre,6:print " 2":return 
710 gosub en1 note 
720 return 
730 enleve: 
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740 for i=10 to 18:gotoxy xxp,i sprint spc (45):next s xx=xxp:yy=10:ct=ü 
750 return 
760 enlnote: 

770 if index=0 then return 

780 effe=effect:effect=4:gosub effet 

790 if >:x=»xxp then xx™yyp:yy=yy-l:ct=9: goto 810 

000 xx=xx-plus:ct=ct-l 

010 gotoxy xx,yy:print" " 

020 index=index-1 :effect=effe:gosub effet 
030 return 

840 prtnotes:gotoxy bas,9 

050 print "N"sgotoxy bas+2,9:print "□"sgotoxy bas+4,9:print"T" 

060 gotoxy bas+6,9:print "E":gotoxy bas+B, 9: pr i nt"S" : return 

070 medium:coord=19:matr=9:sub=57: mmx=10:mmx1=30: 1 ast=16:xx=28:trois«50 

080 m\nl=80: mm2=185: quatre=59: bas=40: xxp=28: yyp=64s pl us=4: tt 1 =70 

0B5 1tt=10:return 

090 high:coord=38:matr=16:sub=108: mmx=5: mmx1=15:1ast=lB: xx=14:xxp=14 
900 mml=160:mm2=370:trois=25: guatre=29:bas=20:yyp=32: pl us=2:tt 1 =90 
910 ltt=10:return 

*******$*************** ************ 


ATARI ST 


RUSSE 

Pour les jours de gros cafard ou si vous voulez 
tester votre sang froid, un logiciel original qui vous 
confronte à la roulette russe. Dans une ambiance tendue, vous 
tournez le barillet et tirez... Toujours vivant? 

Bravo, on recommence. Et si vous abandonnez l'ordinateur se 
fera une joie de vous traiter de « poule mouillée ». 
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75 

80 

05 

90 

95 

100 

102 

106 

107 

108 
110 
115 
120 
500 
510 
515 
520 


530 


res' " 
540 


560 

700 

710 

sub 7550 
720 
730 
750 
760 
770 
1000 
1010 
1020 
1030 
1 040 
1050 
2000 
2002 
2005 
2010 
2015 
2020 
3000 
30 1 0 
3020 
3030 
3040 
3050 
3060 
3070 
3000 
4000 
4010 
4020 
5000 
501 0 
7550 

b tempo 
7560 


poke contrl+8, 1 
vdisys < 1 ) 
xs=peek(ptsout) 
ys=peek(ptsout+2) 
key=peek(intout) 
qotoxy 10,10 
gosub curseur 
color 1 

qotoxy 2,2:print b$(int( rnd*4> 
i -f key =1 then qosub test 
qoto 55 

pake systab+24,0 

end 

corn : 

d i m b* (4 ) 

b$(0)=*"vas y,appuie!! 
b$(l)="ta mort est proche" 
b$(2)="ton dernier SANG !" 
b$(3)="fais tes pri 

b$(4)="c'est la bonne! " 

return 

test : 

i-f :<5 > 260 and xs < 264 and ys 



1 L5 and vs ILS then t = L : qo 


i-f xs>244 and xs 240 and vs ; 133 and / = 136 then p = L 

i-f xs>2B4 and xs<288 and ys>351 and ys : 154 then qoto abandon 

rem 

i-f p=l and t = l then qosub tir 
return 

rem tempo & test souris 

poke contr1,124 

vdisys(1) 

key-peek(in tout) 

i-f key =1 then clearw 2s return 

qoto 1000 

tir s 

color in t (rnd *0 ) +1 : x — x + 1 : qotoxy 2 3,0 : p r i n t " es s a i n •• " : 
w=int(rnd*6) 

i-f w=5 then qotoxy 2, 2s pr in fc " ah ! t es mort «a r inqo ! " : qo to L 15 

P=0 st-0 

qotoxy 2.2:print" click!! 1 qosub tempo:retufn 

curseur : 

poke contrl,122 

poke contrl+2,0 

poke contr1+4,0 

poke contrl+o. 1 

poke contrl+8, 0 

poke intin,0 

vdisys(1) 

return 

abandon s 

color 5 

gotoxy 2,2:print"poule mouille! -igoto L15 

tempo e 

■for -f* 8 l to 900:next f: return 

if t = 1 and p=0 then qotoxy 2,2:print"bara 1 let Tourn! ":gosu 

return 
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ATARI XL 


POSTER 


Affichez ou offrez vos plus belles réalisations 
sur tablette graphique Atari, sauvegardées et réutilisables 
en Basic. Il faut une imprimante Epson (ou 
toute autre dont la tête possède au moins huit aiguilles de 
haut) et un disque format Dos 2.0 (ou compatible) 
dans le lecteur n° 1. « Insert » pour sauver l'image sous 
le nom de « Picture » (toujours), puis lancez Poster. 


100 REM ****************************** 


101 

REM 

*# 

*■ 

#* 

102 

REM 

** 

POSTER 

** 

103 

REM 

** 


' #* 

104 

REM 

#* 

par Laurent Decomble 

' ** 

105 

REM 

** 


** 

106 

REM 

** 

Mai/Juin 1986 

*# 

107 

REM 

** 


#* 


108 REM ****************************** 
1000 RESTORE 1630:FOR A=0 TO 57:READ B:? 

A:C=C+B:POKE 1536+A,B:NEXT A 
1010 IF 005841 THEN ? "ERREUR DANS LES 
DATAS LANGAGE MACHINE SOMME INCORRECT 
E! DIFFERENCE*";C-5841 

1020 POKE 82,0:POKE 710,0:POKE 709,255:D 
IM B(3,4) ,C(3,4) ,T(191) ,R$ (15) , N$(1) 
1030 ? CHR$(125):POKE 709,14:POKE 710,0 
1040 ? "Nom de l'image a recopier sur ” 
1050 ? " l'Imprimante compatible EPSON” 
1060 ? :? ” Ex. DI :PICTURE.PIC ” 

1070 ? : ? " :INPUT R$ 

1080 ? : ? "Type de Largeur 0 1 ou 5 : I 

NPUT TAI 

1090 ? :? ”La reference est: Fond=feuill 
e de papier” 

1100 ? : ? "Normal ou Inverse :INPUT N$ 
1110 IF N$="N" THEN C=3 
1120 IF N$ =”1” THEN C=0 

1130 IF TAI = 1 THEN YD*191:YF*0 :MSB*3:LSB 
=192:GOTO 1250 

1140 IF TAI=5 THEN GOTO 1200 
1150 IF TAIO0 THEN GOTO 1080 
1160 ? "IL N'Y A QUE 480 POINTS DANS CE 
MODE QUELLE MOITIE DE L'IMAGE DESIRE 
Z VOUS IMPRIMER /\*5 \/=*/: INPUT N$ 
1170 IF N$=”S” THEN YD=95:YF=0: GOTO 1240 
1180 IF N$="I" THEN YD*191 :YF=96: GOTO 12 
■40 

1190 GOTO 1150 

1200 ? "IL N'Y A QUE 576 POINTS DANS CE 
MODE QUELLE PARTIE DE L'IMAGE DESIRE 
Z VOUS IMPRIMER /\=S \/=J";:INPUT N$ 
1210 IF N$="S" THEN YD=76:YF=0:MSB=1 :LSB 
= 129: GOTO 1250 

1220 IF N$="I" THEN YD=191 :YF*76:MSB=2:L 
SB=68: GOTO 1250 
1230 GOTO 1210 
1240 MSB*1:LSB=224 


1250 GOSUB 1400 
1260 FOR X=0 TO 159 

1270 ? #1 ;CHR$(27);CHR$(42); CHR$(TAI) ; CH 
R$(LSB);CHR$(MSB) ; 

1280 FOR Y=YD TO YF STEP -l:LOCATE X,Y,A 
:A=ABS(C-A) : FOR NL=0 TO 4:PUT #1,B(A,NL 
):NEXT NL:T(Y)=A:NEXT Y 
1290 ? #1;CHR$(27);CHR$(51);CHR$(2); 

1300 7 #1 

1310 ? #1;CHR$(27);CHR$(42);CHR$(TAI) ; CH 
R$ (LSB);CHR$(MSB) ; 

1320 FOR Y=YD TO YF STEP -l:FOR NL=0 TO 
4:PUT #1,C(T(Y),NL):NEXT NL:NEXT Y 
1330 ? #1 ;CHR$(27);CHR$(51);CHR$(22) ; 
1340 ? #1 
1350 NEXT X 
1360 CLOSE #1 
1370 LPRINT CHR$ ( 12) 

1380 RUN 

1390 REM #*## INITIALISATION #**# 

1400 RESTORE 1500 

1410 FOR NÇ=0 TO 3:FOR NL=0 TO 4:READ U: 
B(NC,NL)=U:NEXT NL:FOR NL=0 TO 4:READ U 
:C(NC,NL)=U:NEXT NL:NEXT NC 
1420 GRAPHICS 31:IF C=3 THEN GOSUB 1590 
1430 IF C=0 THEN GOSUB 1610 
1440 OPEN #1,4,0,R$:SC=PEEK(88)+PEEK(89> 
*256 

1450 X=USR(1536,1,4,SC,7680): CLOSE #1 
1460 OPEN #1,8,0,"P:" 

1470 ? #1;CHR$(27);CHR$(51);CHR$(22) ; 
1480 RETURN 

1490 POKE 709,15:POKE 710,0 
1500 DATA 0,0,0,0,0 • 

1510 DATA 0,0,0,0,0 
1520 DATA 170,85,170,85,170 
1530 DATA 170,85,170,85,170 
1540 DATA 136,34,136,34,136 
1550 DATA 136,34,136,34,136 
1560 DATA 255,255,255,255,255 
1570 DATA 255,255,255,255,255 
1500 SETCOLOR 3,0,0 :SETCOLOR 2,0,0:SETCO 
LOR 1,0,0:SETCOLOR 0,0,0:RETURN 
1590 POKE 708,6:POKE 709,10:POKE 710,15: 
POKE 712,0:RETURN 
1600 RETURN 

1610 POKE 700,10:POKE 709,6:POKE 710,0:P 
OKE 712,15:RETURN 
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1620 RETURN 

1630 DATA 104,201,4,240,15,170,240,5,104 
,104,202,208,251,169,3,133,185,76,64 
1640 DATA 185,104,104,10,10,10,10,170,10 


4,104,24,105,3,157,66,3,104,157,69 
1650 DATA 3,104,157,68,3,104,157,73,3,10 
4,157,72,3,32,86,228,152,48,214,96 


ATARI XL 


MINITEST 

Ce programme vous servira à tester diverses possibilités 

de votre Minitel, 

et même à dessiner avec. Une nouvelle extension à peu de frais. 


1000 

REM 

K####*#####*##*##*##*#***##** 

1400 PUT #1,15:PUT #1,10:PUT #1,10:PUT # 

1010 

REM 

## 

#* 

1,13 

1020 

REM 

## ## ## *# Comprenez 

** 

1410 FOR A=1 TO 21 : PUT #1,25:READ X:READ 

1030 

REM 

## ** *# #* Utilisez 

#* 

Y:PUT #1,X:PUT #1,Y:PUT #1,32:NEXT A 

1040 

REM 

** #* #* ## Dessinez 

#* 

1420 FOR A=1 TO 13:PUT #1,25:READ X:PUT 

1050 

REM 

*# ## ## Testez 

*# 

#1,X:PUT #1,32:NEXT A 

1060 

REM 

## ## #* *# Votre 

*# 

1430 PUT #1,10:PUT #1,13 

1070 

REM 

#* ** *# ** Minitel 

** 

1440 REM ATTRIBUTS DE VISUALISATION 

1080 

REM 

## ## *# ## par 

*# 

1450 REM MODE ROULEAU 

1090 

REM 

#* Laurent 

#* 

1460 PUT #1,27:PUT #1,58:PUT #1,105:PUT 

1100 

REM 

** DEOMBLE 

## 

#1,67 

1110 

REM 

** 

*# 

1470 PUT #1,10 : PUT #1,13 

1120 

REM 

K##*##**####**###***###***#** 

1480 FOR B=1 TO 8 

1130 

DIM 

CFO) , D ( 100 ) 


1490 RESTORE 2160:FOR A=1 TO 8:READ CC 

1140 

CF(1)=80 : CF(2)=84 : CF(3)=81 : CF(4)=85 

1500 PUT #1,27 : PUT #1,CF(B):PUT #1,27:PU 

: CF(5)=82: CF(6)=86:CF(7)=83:CF(8) = 

87 

T #1,CC:PRINT #1;" ABCDEFGHIJKLMNOPQRST 

1150 

TIME=0 


UVWXYZ0123456789< >" 

1160 

GRAPHICS 0:SETCOLOR 2,0,0:SETCOLOR 

1510 PUT #1,10:PUT #1,13 

1,0,14 :POKE 82,0 


1520 NEXT A 

1170 

OPEN #1,13,0,"R3:" 


1530 NEXT B 

1180 

XIO 

36,#1,10,0,”R3: M 


1540 GOTO 1220 

1190 

XIO 

38,#1,2,0,”R3: " 


1550 PUT #1,31:PUT #1,64:PUT #1,65:REM I 

1200 

XIO 

40,#1,0,0,"R3: ” 


MPRIME EN LIGNE 0 

1210 

PUT 

#1 , 12 


1560 REM FANHARD EST LA EN CLIGN EN HAUT 

1220 

? "TEST MINITEL(1)" 


1570 PUT #1,31:PUT #1,66:PUT #1,65:F0R A 

1230 

? "TEXTE A (2)" 


= 1 TO 10 : PUT #1,96 :NEXT A:PUT #1,27:PUT 

1240 

? "TEXTE B (3)" 


#1,72 

1250 

? "TEXTE C (4)" 


1580 PRINT #1 ;"Fanhard est la."; 

1260 

? "GRAPHIQUE (5)" 


1590 PUT #1,27:PUT #l,73:FOR A=1 TO 11 : P 

1270 

INPUT REPONSE 


UT #1,96:NEXT A 

1280 

IF REP0NSE<1 OR REPONSE>5 THEN 

GOTO 

1600 GOTO 1220 

1220 



1610 REM FANHARD EST LA EN INVER EN HAUT 

1290 

ON REPONSE GOTO 1300,1550,1620 

, 1670 

1620 PUT #1,31:PUT #1,64:PUT #l,65:FOR A 

,1710 



= 1 TO 10 : PUT #1,96 :NEXT A:PUT #1,27:PUT 

1300 

REM 

CARACTERES NORMAUX 


#1,93 

1310 

PUT 

#1,15: F OR A=32 TO 127:PUT 

#1 , A: 

1630 PRINT #1;"Fanhard est la.”; 

PUT 

#1,32:NEXT A 


1640 PUT #1,27: PUT #1,92:FOR A=1 TO 11 : P 

1320 

PUT 

#1 ,10:PUT #1,13 


UT #1,96:NEXT A 

1330 

PUT 

#1,10:PUT #1,13 


1650 GOTO 1220 

1340 

REM 

CARACTERES MOSAÏQUE 


1660 REM FANHARD CLIGN ET INVERS EN HAUT 

1350 

PUT 

#1 , 14 


1670 PUT #1,31:PUT #1,64:PUT #l,65:FOR A 

1360 

FOR 

A=32 TO 63 : PUT #1,A:PUT #1 

, 32 : N 

= 1 TO 11 : PUT #1,96 :NEXT A:PUT #1,27:PUT 

EXT 

A 



#1,93: PUT #1,27:PUT #1,72 

1370 

FOR 

A=95 TO 127 : PUT #1,A:PUT #1,32: 

1680 PRINT #1; "Fanhard te salue"; 

NEXT A 



1690 PUT #1,27:PUT #1,92:PUT #1,27:PUT # 1 

1380 

REM 

CARACTERES SPECIAUX 


1,73:FOR A-1 TO 12:PUT #1,96:NEXT A 

1390 

RESTORE 2120 


1700 GOTO 1220 
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1710 RESTORE 1830 

1970 DATA -8,2,3,10,125,8 

1720 FOR T=1 TO TIME:NEXT T 

1980 DATA -10,5,2,47,11 

1730 READ B:? B 

1990 DATA 3,2,10,8,-10,-10 

1740 IF B=-999 THEN CLOSE #1:END 

2000 DATA 5,2,47,11,2,2,10,8,-10,-126,-1 

1750 IF B<0 THEN PUT #1,ABS(B): GOTO 1720 

26,-11,-95,-95 

1760 IF B=0 THEN READ B:FOR A= 1 TO B: REA 

2010 DATA -9,-11,-9,-11,5,4,8,10,47,8 

D C: PUT #1,C:NEXT A:GOTO 1720 

2020 DATA -9,4,2,47,11 

1770 READ C:FOR A=1 TO C:READ D:D(A)=D:N 

2030 DATA -27,-78,-47,-27,-76,-126,-92 

EXT A 

2040 DATA 4,4,8,10,47,8 

1780 FOR 1=1 TO B:REM NBE DE REPETITION 

2050 DATA -8,-11,-11,-126,-126,-11,-95,- 

S 

95,-11,-11,-9,-9 

1790 FOR J = 1 TO C: PUT #1,D<J):REM GROUP 

2060 DATA 5,1,95,2,4,8,10,47,8,2,3,8,95, 

E A REPETER 

8,-10,2,3,8,126,8 

1800 NEXT J 

2070 DATA -9,-9,-11,-11,-11,5,4,8,10,47, 

1810 NEXT I 

8 

1820 GOTO 1720 

2080 DATA -9,-9,-9,2,2,9,11,3,3,123,8,10 

1830 DATA 0,3,31,48,57 

2090 DATA -9,-9,5,2,11,47,-8,-11,3,1,95, 

1840 DATA 7,2,47,11 

-10,-92,4,4,8,10,47,8 

1850 DATA 3,1,8 

2100 DATA -10,5,3,8,126,8 

1860 DATA 36,1,95 

2110 DATA -999 

1870 DATA -13,-9 

2120 DATA 65,97,65,101,65,117,66,101,67, 

1880 DATA 3,1,10 

97,67,101,67,105,67,111,67,117,72,101,7 

1890 DATA 3,1,9 

2,105,122,0,75,99 

1900 DATA 4,1,126,-11,3,1,95 

2130 DATA 67,65,65,69,66,69,67,73,67,79, 

1910 DATA -13,-10,-10,-10,-9,-9,-9 

65,85,106,0,75,67 

1920 DATA 4,2,47,11 

2140 DATA 35,36,38,44,45,46,47,48,49,56, 

1930 DATA -27,-78,-47,-27,-76,-126,-92 

60,61,62 

1940 DATA 4,4,8,10,47,8 

2150 REM COULEURS 

1950 DATA -9,5,2,47,11 

2160 DATA 64,68,65,69,66,70,67,71 

1960 DATA 2,3,10,123,8 



ATARI XL 


LE TOUR DE L'ATARI 


Personnalisez vos documents (lettres, enveloppes,...) en les agrémentant d'une 

superbe carte du monde en exergue. Il 
vous faut une imprimante plotter Atari 1020 ou Sony PRN-C41. 

Sinon, amusez-vous sur un écran Haute Résolution. 

Si le périphérique est trop lent, ralentissez le Basic. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
,0 
110 
120 
130 
1 ” 
140 
2 ” 
150 


REM K######*#####*#####***##* 

REM * * 

REM # Le tour de 1'ATARI * 

REM * * 

REM * en 24 longitudes # 

REM # * 

REM # par Laurent Decomble * 

REM * * 

REM a**#######*####*#####*#*# 

MX=0.67:MY=0.66:POKE 709,15:POKE 710 

? CHR$(125) 

? " TRACE UNE CARTE DU MONDE ” 

? : ? "SUR ECRAN SEULEMENT ? 

? : ? "SUR ECRAN ET IMPRIMANTE, 

INPUT RI 
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160 IF RI<1 OR RI>2 THEN GOTO 150 

170 IF Rl*=l THEN GOTO 230 

180 ? " IMPRIMANTE DE QUEL TYPE ?":? 

190 ? "SONY PRN-C41 (Feuilles A4)_1 *’ 

200 ? "ATARI Plotter A 1020.2” 

210 INPUT TY 

220 IF TY<1 OR TY>2 THEN GOTO 150 
230 DIM RE<22>,NI(22),NC(22,16) 

240 RESTORE 9000 

250 FOR A=1 TO 22:READ RE:RE(A)=RE:NEXT 
A 

260 FOR A=1 TO 22 :READ NI: NI(A)«NI:NEXT 
A 

270 FOR A-1 TO 22:FOR B=1 TO NI(A) 

280 READ NC:NC(A,B)-NC:NEXT B:NEXT A 

290 IF RI=1 THEN GOTO 360 

300 IF TY-2 THEN LPRINT CHR$(27);CHR$ (7) 

: GOTO 320 

310 LPRINT CHR$(27);"#" 

320 LPRINT ”H": LPRINT " I " : LPRINT -’C0" 

330 PRINT "TAILLE :0.1 a 2 ou + :INPUT 

T 

340 ? "CADRAGE X (0)";:INPUT CX 
350 ? "CADRAGE Y (0)INPUT CY 
360 GRAPHICS 24:COLOR 1 
370 POKE 710,15:POKE 709,0 
380 FOR N-l TO 22:RESTORE RE(N) 

390 FOR B-l TO NI(N):READ X,Y 
400 GOSUB 560:PLOT W,Z:IF Rl-1 THEN GOTO 
430 

410 GOSUB 500 
420 LPRINT "M”;Y;”,X 
430 FOR A-1 TO NC(N,B):READ X,Y 
440 GOSUB 560:DRAWTO W,Z:IF RI * 1 THEN GO 
TO 470 

450 GOSUB 500 
460 LPRINT "D"; Y; ",”;X 
470 NEXT A:NEXT B:NEXT N 
480 IF R1< >1 THEN LPRINT "H" 

490 GOTO 490 
500 X-X*T+CX: Y=*Y*T+CY 
510 IF X<0 THEN X-0 
520 IF X>960 THEN X-960 
530 IF Y<0 THEN Y-0 
540 IF Y>999 THEN Y-999 
550 X=-X:RETURN 
560 W=MX#X:Z*192-MY#Y 
570 IF W<0 THEN W*0 
580 IF W>319 THEN W-319 
590 IF Z<0 THEN Z«0 
600 IF Z>191 THEN Z-191 
610 RETURN 

8999 REM ADRESSES POUR RESTORE 

9000 DATA 21230,11000,21150,21190,21170, 
21210,12000,21250,16000,15000,21120 

9010 DATA 21090,21040,21280,13000,21530, 
20000,18000,14000,21590,10000,21000 

9099 REM NO/1BRE D’ILES / GROUPE 

9100 DATA 1,1,1,1,1,1,1,1,12,1,1,1,1,12, 
1,5,5,16,1,3,1,1 

9199 REM NBRE DE COUPLES / ILE 

9200 DATA 5,94,8,4,7,3,169,11,26,7,16,3, 
3,5,4,5,15,9,7,9,64,12,11,24,7,5,5,10,3 

9210 DATA 4,5,4,5,3,3,4,416,3,4,3,6,3,8, 
5,25,13,10,3,20,17,8,20,26,20,13,30,5 
9220 DATA 15,5,3,4,16,5,59,8,4,7,109,20 
9990 REM *************************** 


9991 REM **ORIGINE 242,59 ** 

9992 REM ** ** 

9993 REM ** AFRIQUE ** 

9994 REM ** 110 COUPLES ** 

9995 REM *# ** 


9996 REM *************************** 
10000 DATA 242,59,239,60,238,62,239,64,2 
36,70,233,76,232,81,233,82,229,89 
10010 DATA 228,92,228,95,229,99,231,101, 
231,104,230,108,229,113,227,1 17 
10020 DATA 224,120,223,122,224,126,224,1 
33,223,135,221,134,218,133,216,137 
10030 DATA 213,139,208,137,205,135,200,1 
37,195,135,193,135,190,137,185,141 
10040 DATA 184,145,180,150,180,152,179,1 
55,180,156,181,163,182,165,180,166 
■10050 DATA 183,168,187,171,191,179,193,1 
81,194,189,198,191,200,195,201,193 
10060 DATA 204,193,206,192,211,195,216,1 
96,220,196,225,195,227,194,226,192 
10070 DATA 228,191,225,189,227,188,234,1 
86,235,184,238,184,240,183,242,184 
10080 DATA 242,187,245,188,247,187,250,1 
85,255,184,258,185,261,186,261,181 
10090 DATA 267,171,268,169,271,166,272,1 
61,274,160,276,154,278,153,282,149 
10100 DATA 280,147,282,147,284,145,295,1 
48,295,146,293,141,292,137,288,131 
10110 DATA 284,128,278,120,275,117,275,1 
13,276,108,278,104,278,97,277,94 
10120 DATA 274,92,269,89,267,85,268,82,2 
69,79,266,77,263,75,263,71 
10130 DATA 260,68,254,61,250,60,246,60,2 
42,59 

10990 REM *************************** 


10991 REM **ORIGINE 115,16 ** 

10992 REM ** ** 

10993 REM ** AMERIQUE DU SUD ** 

10994 REM ** 95 COUPLES ** 

10995 REM ** ** 


10996 REM *************************** 
11000 DATA 115,16,108,21,105,24,104,28,1 
02,29,100,32,97,48,96,58,91,82,89,90 
11010 DATA 83,94,72,112,70,113,71,118,73 
,119,71,121,71,126,76,132,76,138 
11020 DATA 74,140,74,141,73,143,72,143,7 
1,141,70,141,68,142,68,144 
11030 DATA 73,144,75,145,77,144,77,143,7 
9,145,81,149,83,149,87,150,86,146 
11040 DATA 88,145,88,147,90,149,93,147.9 
9,147,99,148,101,147,103,147,105,148 
11050 DATA 105,146,104,145,109,141,110,1 
39,115,138,120,134,122,129,121,125 
11060 DATA 124,125,122,122,129,124,132,1 
21,137,120,141,120,144,117,.148,115 
11070 DATA 150,110,146,106,142,100,143,8 
8,140,81,136,80,130,76,131,70,128,63 
11080 DATA 127,60,125,59,125,57,121,56,1 
17,58,117,56,120,54,120,53,122,53 
11090 DATA 121,50,117,48,115,47,115,43.1 
12,43,113,41,114,40,112,39,113,36 
11100 DATA 112,34,113,32,116,31,115,26,1 
16,21,114,20,115,16 

11990 REM *************************** 

11991 REM **ORIGINE 68,142 ** 

11992 REM ** ** 

11993 REM ** AMERIQUE DU NORD ** 
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11994 REM ## 170 COUPLES *# 

11995 REM ** *# 

11996 REM #**#**#*##*#**#*#**#*#****# 
12000 DATA 68,142,66,143,63,145,62,148,6 

0,152,56,153,52,157,50,159,48,160 
12010 DATA 46,158,44,159,43,161,36,163,3 
2,168,35,170,32,180,30,193,28,194 
12020 DATA 27,191,28,185,30,175,28,173,2 
6,178,26,181,23,184,26,185,24,189 
12030 DATA 26,197,23,200,25,213,34,224,3 
6,234,41,248,38,251,38,254,32,257 
12040 DATA 27,254,29,258,23,257,22,254,1 
4,250,2,250,10,252,18,256,14,256 
12050 DATA 16,258,15,259,15,261,18,260,1 
7,262,21,265,25,263,29,265,24,266 
12060 DATA 26,270,31,270,33,268,35,270,3 
3,273,36,274,38,273,45,276,50,275 
12070 DATA 60,272,64,269,64,266,66,266,6 
5,263,67,261,71,260,70,263,76,265 
12080 DATA 78,269,81,268,85,264,'92,264,9 
5,265,100,262,102,264,104,261 
12090 DATA 108,264,109,267,1 13,270 j114,2 
68,112,260,115,261,119,264,121,262 
12100 DATA 116,257,112,258,110,256,99,25 

2.91.246.92.241.97.237.101.236 

12110 DATA 99,233,100,229,102,230,104,23 
5,111,238,110,244,117,250,122,249 
12120 DATA 125,246,123,244,124,241,127,2 

42.130.246.131.235.135.231.134.228 
12130 DATA 130,228,126,225,116,226,109,2 

19,117,223,118,221,115,220,116,218 
12140 DATA 118,217,120,217,115,214,113,2 
12,112,213,114,217,111,216,108,214 
12150 DATA 105,213,105,209,101,208,103,2 
07,99,206,95,203,93,205,93,201 
12160 DATA 92,200,91,205,90,199,83,192,7 
9,190,78,187,79,180,77,176,76,178 
12170 DATA 75,182,74,187,72,186,69,188,6 
5,188,67,185,63,186,58,187,50,181 
12180 DATA 50,178,47,173,47,169,49,164,5 

1,163,53,164,55,163,57,165,58,170 
12190 DATA 65,169,60,159,64,159,67,159,6 
6,148,68,144,68,142 

12990 REM a*#*#####*#*#******#**##*## 

12991 REM *#ORIGINE 200,196 ## 

12992 REM *# ## 

12993 REM ** EUROPE URSS CHINE... *# 

12994 REM *# 417 COUPLES ** 

12995 REM ## ** 

12996 REM a*#########*############### 
13000 DATA 200,196,199,197,195,197,196,1 

99,195,200,196,202,197,205,197,209 
13010 DATA 198,211,200,210,203,209,206,2 
08,207,209,209,213,209,215,207,216 
13020 DATA 208,217,205,217,204,219,206,2 
20,206,219,208,219,208,221,209,221 
13030 DATA 210,220,211,220,211,221,213,2 

22.214.223.217.224.218.227.224.228 
13040 DATA 224,231,223,232,224,235,226,2 

36,227,234,226,230,228,229,229,230 
13050 DATA 233,228,235,230,238,229,241,2 

30.241.233.242.235.244.234.245.236 
13060 DATA 244,238,253,240,251,241,244,2 

40,242,241,241,243,245,249,244,252 
13070 DATA 241,251,240,249,236,245,236,2 
42,237,240,237,238,235,237,231,233 
13080 DATA 227,232,224,239,222,237,219,2 


36,220,239,225,245,227,247,232,252 
13090 DATA 236,259,244,263,250,262,250,2 

60.254.261.255.259.258.260.264.258 
13100 DATA 265,256,263,253,258,254,256,2 

55,257,252,258,250,261,248,260,251 
13110 DATA 264,250,265,252,267,254,269,2 

53.269.256.268.257.267.259.271.258 
13120 DATA 271,255,273,255,275,258,279,2 

59.280.258.286.259.287.257.288.258 
13130 DATA 287,260,288,262,290,261,292,2 

59.296.258.297.259.294.262.293.264 
13140 DATA 294,266,293,268,298,267,298,2 

64,302,259,302,256,299,255,303,254 
13150 DATA 304,258,304,259,305,260,309,2 

57.307.260.306.262.303.261.300.265 
13160 DATA 300,268,302,264,306,264.303,2 

66.304.267.309.265.311.263.310.266 
13170 DATA 305,269,310,270,311,271,310,2 

72,316,274,322,274,321,275,322,279 
13180 DATA 325,278,324,277,327,277,328,2 
76,329,277,333,277,335,276,336,274 
13190 DATA 333,269,336,272,340,272,341,2 

71.346.272.347.271.352.270.351.272 
13200 DATA 355,273,358,271,362,268,362,2 

70.364.269.371.270.369.272.379.273 
13210 DATA 384,271,391,272,396,269,406,2 

69,405,272,414,271,422,271,428,269 
13220 DATA 429,270,433,269,435,265,431,2 
65,425,268,426,265,424,264,428,263 
13230 DATA 430,261,428,260,428,255,420,2 
54,421,250,423,250,426,248,427,245 
13240 DATA 428,241,429,236,419,243,417,2 
. 47,418,251,418,254,416,258,414,255 
13250 DATA 413,257,410,256,410,252,412,2 
50,408,249,408,251,407,251,399,248 
13260 DATA 398,245,395,240,401,238,402,2 

39,406,237,405,236,407,235,410,229 
13270 DATA 412,223,411,218,410,215,408,2 
16,406,214,407,211,404,208,409,204 
13280 DATA 411,200,408,197,406,202,403,2 
03,402,207,399,207,397,206,396,209 
13290 DATA 394,211,392,206,391,204,393,2 
03,395,201,397,203,399,202,400,201 
13300 DATA 396,198,403,192,404,190,402,1 
89,404,188,405,184,404,179,402,174 
13310 DATA 399,172,397,171.396,173,395,1 

70.392.169.391.167.390.169.387.170 
13320 DATA 384,167,385,163,389,158,392,1 

53,393,151,392,149,390,147,388,147 
13330 DATA 388,145,386,143,386,146,383,1 

48.380.151.379.151.378.153.377.153 
13340 DATA 377,150,376,147,379,141,384,1 

36,385,129,384,128,381,131,378,138 
13350 DATA 378,140,375,142,374,142,374,1 
47,373,157,371,159,367,158,367,161 
13360 DATA 365,164,362,166,360,169,358,1 
70,358,167,353,167,353,165,351,163 
13370 DATA 343,156,343,151,342,147,342,1 

44.339.142.336.145.333.151.333.153 
13380 DATA 331,158,329,169,328,167,325,1 

66.322.169.324.170.323.170.317.176 
13390 DATA 311,175,303,176,301,178,298,1 

77.294.178.290.184.286.184.289.177 
13400 DATA 292,174,293,176,293,173,295,1 

72.298.174.301.176.303.172.306.171 
13410 DATA 308,169,305,165,305,162,303,1 

62,303,160,301,160,301,158,296,157 
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13420 DATA 295,155,290,153,282,150,281,1 
55,280,158,278,160,277,164,274,164 
13430 DATA 273,170,269,173,270,175,266,1 
79,265,182,264,179,262,182,262,185 
13440 DATA 264,185,266,191,266,196,264,1 
97,263,195,261,195,259,197,257,195 
13450 DATA 253,196,251,199,251,201,255,2 
04,259,205,264,206,273,204,275,207 
13460 DATA 274,208,268,213,271,216,262,2 
14*265,213,262,211,259,215,252,208 
13470 DATA 254,206,251,203,248,204,247,2 
03,246,202,244,203,247,198,246,195 
13480 DATA 244,197,245,198,243,200,240,2 
07,232,213,230,213,230,210,233,209 
13490 DATA 234,206,236,205,235,204.240,2 
03,240,202,238,202,237,201,238,200 
13500 DATA 235,197,235,200,232,205,226,2 
08,226,210,224,210,220,207,217,209 
13510 DATA 215,209,214,208,211,206,210,2 
03,210,200,209,198,207,197,204,197 
13520 DATA 200,196 

13990 REM #*####*##***###******##*#** 


13991 REM ##0RIGINE 433,41 *# 

13992 REM *# ** 

13993 REM *# AUSTRALIE ** 

13994 REM ## 60 COUPLES ** 

13995 REM ## ** 


13996 REM *#########*#*####*#*#*#*#** 
14000 DATA 433,41,431,43,429,42,425,46,4 
27,50,425,52,427,56,422,52,421,56 
14010 DATA 420,59,415,59,410,58,407,57,4 
06,54,399,54,395,53,391,56,395,61 
14020 DATA 394,71,396,72,396,76,398,80,4 
03,83,407,84,409,83,412,87,413,89 
14030 DATA 416,90,419,94,422,96,424,94,4 
26,94,427,96,429,98,432,98,433,101 
14040 DATA 439,100,436,93,441,88,444,89, 
447,96,447,100,449,104,450,99,450,95 
14050 DATA 452,94,453,84,455,81,455,77,4 
57,76,456,73,458,71,457,67,455,62 
14060 DATA 450,55,445,51,445,49,441,44,4 
36,43,433,41 

14990 REM *##**#*#*#**#****####*#**#* 


14991 REM *#ORIGINE 155,243 ** 

14992 REM ## ** 

14993 REM *# GROENLAND ** 

14994 REM *# 65 COUPLES #* 

14995 REM ## ** 


14996 REM ###*##**#**#############*** 
15000 DATA 155,243,154,245,152,244.150,2 
48,150,250,151,252,149,253,149,256 
15010 DATA 154,260,157,262,154,264,157,2 
63,157,266,155,265,156,271,152,274 
15020 DATA 147,274,144,275,145,277,149,2 

77.147.278.147.280.152.279.155.281 
15030 DATA 152,281,152,282,162,285,164,2 

84.172.284.173.285.174.284.175.281 
15040 DATA 176,285,185,287,193,286,190,2 

85.196.284.189.283.188.281.195.282 
15050 DATA 195,281,199,283,203,283,203,2 

81,199,280,197,275,195,275,196,272 
15060 DATA 194,267,190,270,188,267,191,2 
65,190,263,188,263,186,265,184,262 
15070 DATA 188,262,179,258,177,260,177,2 
57,174,255,171,254,168,254,162,250 
15080 DATA 155,243 

15990 REM #####*##*#####*###*###***#* 


15991 REM *#ORIGINE DIVERSES ** 

15992 REM ** ## 

15993 REM ** ILES NORD AM. DU NORD ** 

15994 REM ** ?? COUPLES ## 

15995 REM ** ** 


15996 REM *#*##*####**#*##*#*#**#*#*# 

15999 REM ###*******#**#*#**#*####### 1 

16000 DATA 130,247,126,251,126,253,123,2 
54,121,253,119,255,120,256,125,256 

16010 DATA 130,259,127,266,123,264,119,2 
66,118,269,123,271,129,271,128,268 
16020 DATA 132,269,138,265,138,260,141,2 
57,137,254,134,258,133,254,134,252 
16030 DATA 133,250,129,252,130,247 

16099 REM *#***#*****###*####*##*#***2 

16100 DATA 132,273,121,273,122,276,120,2 

78.122.279.124.276.133.275.132.273 

16199 REM ######*####*########*####**3 

16200 -DATA 136,276,126,277,131,280,127,2 
80,127,282,138,287,150,287,152,288 

16210 DATA 157,286,154,285,149,283,148,2 
81,144,281,142,278,139,277,135,278 
16220 DATA 136,276 

16299 REM **####*##############**#***4 

16300 DATA 119,280,117,283,119,283,119,2 
80 

16399 REM #**##*#*#**#####*#########*5 

16400 DATA 118,274,117,275,119,276,118,2 
74 

16499 REM a##*##*****##########** ***#6 

16500 DATA 114,270,113,271,115,273,118,2 
72,117,271,114,270 

16599 REM ***************************7 

16600 DATA 114,275,112,276,113,278,117,2 
79,114,275 

16699 REM *#*******#**##***###**###**8 

16700 DATA 106,269,105,272,108,274,111,2 
73,109,270,106,269 

16799 REM K*#****#*#**#******##**#**#9 

16800 DATA 100,265,96,267,91,267,86,266, 

86.269.91.269.88.271.90.273.93.273 
16810 DATA 95,271,96,273,97,269,102,274, 

100,268,103,267,100,265 

16899 REM #**##*#########*##*##**##*10 

16900 DATA 98,275,97,276,94,278,93,279,1 
01,280,103,277,107,279,108,277 

16910 DATA 106,275,98,275 

16999 REM ###*#####**##**##**#####*#11 

17000 DATA 82,271,81,273,90,277,95,276,9 
4,275,90,274,86,271,82,271 

17099 REM #*###*###*######*##*******12 

17100 DATA 68,265,68,266,65,267,64,269,6 
6,270,73,271,75,268,74,266,70,267 

17110 DATA 68,265 

17990 REM ###*##*#**#**#*#*##*#*#*#*# 


17991 REM #*ORIGINE DIVERSES #* 

17992 REM *# *# 

17993 REM ** ILES VERS AUSTRALIE ## 

17994 REM ## ?? COUPLES ** 

17995 REM *# ## 


17996 REM K###***###############**##* 

17999 REM *###########*#####*###**#*#1 

18000 DATA 449,21,450,22,451,21,449,21 

18099 REM *x*#*#****Ht#***JHtiHt****iHf*#2 

18100 DATA 453,22,452,25,455,28,456,29,4 
57,29,463,31,464,32,466,33,467,36 

18110 DATA 468,36,468,34,469,33,470,33,4 
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69,32,466,29,464,28,462,27,460,27 
18120 DATA 458,24,456,23,453,22 

18199 REM ####################*###***3 

18200 DATA 473,32,471,33,472,35,471,37,4 
71,38,474,38,476,41,476,48,477,41 

18210 DATA 478,43,478,39,479,38,481,39,4 

82.38.478.35.477.36.476.35.473.32 

18299 REM ***************************4 

18300 DATA 429,33,428,36,429,39,432,38,4 

35.39.434.37.431.33.430.34.429.33 

18399 REM *#*#***##****##*#*#**###**#5 

18400 DATA 389,113,386,114,385,116,383,1 

17.380.120.379.124.377.126.377.129 
18410 DATA 373,133,371,134,370,137,374,1 

36.376.134.379.130.380.130.385.126 
18420 DATA 384,124,386,122,389,122,391,1 

19.389.113 

18499 REM #######*########*#####*###*6 

18500 DATA 405,118,401,120,399,119,398,1 
21,397,119,396,122,396,124,393 ;i25 

18510 DATA 394,130,398,129,399,131,401,1 
32,402,135,404,136,405,136,406,140 
18520 DATA 411,138,410,136,408,134,410,1 
31,408,131,411,127,409,126,408,124 
18530 DATA 407,123,407,121,405,118 

18599 REM #*#*#*****###*****#**#****#7 

18600 DATA 413,114,411,115,412,118,411,1 

20.413.126.415.128.419.128.422.129 
18610 DATA 421,126,414,125,414,123,416,1 

24,419,124,415,122,417,119,416,118 
18620 DATA 418,116,416,115,414,119,413,1 

19.413.114 

18699 REM *#####*##***##**##*###***##1 

18700 DATA 403,107,401,108,397,108,394,1 
09,390,110,388,111,391,113,393,111 

18710 DATA 396,111,397,113,398,111,400,1 
11,402,110,403,107 

18799 REM #*###*######**#*#**#**#****1 

18800 DATA 463,102,458,103,456,106,453,1 
08,451,105,447,107,442,108,444,111 

18810 DATA 442,115,437,117,434,118,433,1 

20.435.121.433.123.432.125.435.126 
18820 DATA 436,124,436,121,438,119,440,1 

19,441,121,443,122,452,118,455,115 
18830 DATA 456,113,457,113,459,111,457,1 
11,460,106,462,104,463,102 

18899 REM ########*##*###*######*##*#1 

18900 DATA 344,138,343,141,344,145,346,1 

42.348.139.344.138 

18999 REM ***######****##*###**#****#1 

19000 DATA 421,138,419,139,419,142,416,1 

42.415.140.415.143.417.144.418.143 
19010 DATA 421,144,421,146,422,145,423,1 

45.422.140.421.139.420.141.421.138 • 

19099 REM **##*##*#******############1 

19100 DATA 407,143,408,145,410,149,411,1 

48.409.146.407.143 

19199 REM ###########*############*##1 

19200 DATA 412,146,410,146,412,149,412,1 
46 

19299 REM ###*########**#####*##**#**1 

19300 DATA 414,147,414,149,415,150,415,1 
49,414,147 

19399 REM ##*#####***#**#######**##*#1 

19400 DATA 417,153,415,154,413,155,412,1 
54,409,159,410,159,409,164,412,164 

19410 DATA 412,162,413,162,413,160,412,1 


60,412,158,414,156,416,156,417,155 
19420 DATA 417,153 

19499 REM ##*###**##**#*######**####16 

19500 DATA 408,172,406,173,407,178,408,1 
78,409,175,408,172 

19990 REM ###*###*##**####*###**##### 

19991 REM **ORIGINE DIVERSES *# 

19992 REM *# ## 

19993 REM ** ILES DU JAPON ** 

19994 REM *# 7? COUPLES ** 

19995 REM *# #* 

19996 REM ##*##*##*###*######*##**#*# 

19999 REM #######**#*#####*######***#1 

20000 DATA 417,191,416,195,415,193,414,1 
95,414,196,416,196,418,194,410,192 

20010 DATA 417,191 

20099 REM *######***####*####*#*#*##*2 

20100 DATA 420,195,419,196,420,197,421,1 
90,421,196,420,195 

20199 REM ##*#*###**#*###*####*####**3 

20200 DATA 424,197,422,198,422,199,420,1 
99,416,197,418,200,420,201,421,200 

20210 DATA 421,205,422,203,423,204,423,2 
09,422,211,423,213,424,212,426,210 
20220 DATA 427,206,426,205,428,203,428,2 
00,426,200,424,199,423,201,423,200 
20230 DATA 424,198,424,197 

20299 REM **#*###*######*##*##*****#*4 

20300 DATA 421,213,419,214,419,217,420,2 
17,418,222,423,219,424,220,426,218 

20310 DATA 424,217,424,215,421,216,420,2 
15,421,214,421,213 

20399 REM #*##*##*#######*######*###*5 

20400 DATA 417,223,407,237,407,238,406,2 
40,411,234,417,229,415,229,416,226 

20410 DATA 418,225,419,224,417,223 
21000 DATA 284,76,282,78,282,80,281,82,2 
83,87,282,92,282,94,283,94,286,96 
21010 DATA 288,98,290,99,291,100,291,103 
,293,100,294,95,292,96,292,93,290,86 
21020 DATA 287,77,285,77,284,76 
21030 REM ##* G.B. *#* 

21040 DATA 203,222,205,224,207,225,204,2 

26.207.228.207.230.205.231.206.233 
21050 DATA 205,234,204,233,204,236,206,2 

38.208.239.208.237.210.237.208.234 
21060 DATA 209,233,212,230,212,228,214,2 

27,211,225,212,224,208,223,206,223 
21070 DATA 203,222 
21080 REM *** IRLANDE *** 

21090 DATA 198,225,200,228,198,229,199,2 
30,201,231,200,232,202,232,203,231 
21100 DATA 204,230,203,229,203,226,198,2 
25 

21110 REM ### ISLANDE *#* 

21120 DATA 189,248,186,250,186,251,184,2 
51,186,252,185,253,187,255,188,253 
21130 DATA 194,254,196,253,197,252,195,2 
50,189,248 

21140 REM #** CUBA *** 

21150 DATA 79,165,80,167,78,169,73,171,6 
9,171,72,173,80,171,86,166,79,165 
21160 REM ##* HAITI #** 

21170 DATA 90,162,85,163,88,164,87,165,9 
1,166,94,164,95,163,90,162 
21180 REM *** HONDURAS *#* 

21190 DATA 80,161,78,163,81,164,82,162,8 
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0,161 

21200 REM *** ANTILLES xxx 
21210 DATA 97,161,97,163,99,162,97,161 
21220 REM *** TERRE DE FEU xxx 
21230 DATA 120,14,116,16,115,18,118,20,1 
23,16,120,14 

21240 REM xxx TERRE-NEUVE xxx 
21250 DATA 134,218,133,221,131,219,132,2 
22,130,220,126,221,127,224,132,226 
21260 DATA 131,224,134,222,136,220,134,2 
18 

21270 REM XXX ILES DU NORD EUROPE ET NOR 
VEGE xxx 

21280 DATA 235,272,233,274,233,276,231,2 
76,229,278,235,279,238,277,235,272 
21290 REM *** 2 XXX 

21300 DATA 242,273,240,274,239,275,242,2 
76,243,275,242,273 
21310 REM xxx 3 xxx 

21320 DATA 242,277,239,278,237,280,241,2 

81.244.279.242.277 
21330 REM xxx 4 xxx 

21340 DATA 282,262,278,263,276,266,278,2 
71,282,274,288,275,283,272,280,269 
21350 DATA 279,266,280,265,282,262 
.£.1360 REM xxx 5 xxx 

21370 DATA 308,280,307,282,310,281,308,2 
80 

21380 REM xxx 6 xxx 

21390 DATA 310,282,308,283,310,285,313,2 
84,310,282 
21400 REM xxx 7 xxx 

21410 DATA 317,279,312,280,311,281,313,2 
82,315,282,317,279 
21420 REM xxx 8 xxx 

21430 DATA 319,277,318,281,320,281,321,2 

79.319.277 

21440 REM xxx 9 xxx 


21450 DATA 364,275,360,277,360,279,363,2 
79,367,278,364,275 
21460 REM xxx 10 xxx 

21470 DATA 373,276,369,278,373,278,373,2 
76 

21480 REM xxx 11 xxx 

21490 DATA 368,273,368,275,371,275,368,2 
73 

21500 REM XXX 12 xxx 

21510 DATA 409,274,407,274,409,277,410,2 
76,409,274 

21520 REM XXX ILES MEDITERRANEE xxx 
21530 DATA 224,205,223,206,225,208,224,2 
05 

21540 DATA 226,200,224,200,223,203,225,2 
04,226,200 

21550 DATA 234,195,230,196,234,197,234,1 
95 

21560 DATA 248,191,245,192,246,193,247,1 
92,252,193,252,192,248,191 
21570 DATA 262,191,260,192,263,194,262,1 
91 

21580 REM XXX ILES DU PACIFIQUE xxx 
21590 DATA 426,125,424,128,426,130,425,1 
28,427,129,426,127,427,125,426,126 
21600 DATA 426,125 

21610 DATA 431,117,425,118,428,120,429,1 
19,431,118 

21620 DATA 463,112,461,112,460,114,462,1 
13,466,115,467,116,468,115,463,112 
30000 POKE 82,0:POKE 709,15:POKE 710,0 
32000 DATA 26,7,16,3,3,5,4,5,15,9,7,9 
32010 DATA 8,5,25,13,10 

32020 DATA 3,20,17,8,20,26,20,13,30,5,15 
,5,3,4,16,5 

32030 DATA 7,5,5,10,3,4,5,4,5,3,3,4 
32040 DATA 3,4,3,6,3 
32050 DATA 8,4,7 


ATARI XL 


MINUTEL 

Cet éditeur de ligne Minitel permet de coder la couleur, 
le clignotement, la taille et les coordonnées des textes à écrire. 


100 

REM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

115 

REM 

X 


X 

101 

REM 

X 


X 

116 

REM 

X 

Ceux qui ne possèdent pasX 

102 

REM 

X 

UTILITAIRE POUR MINITEL 

X 

117 

REM 

X 

L'Interface A850 peuvent 

X 

103 

REM 

X 


X 

118 

REM 

X 

Contacter FANHARD sur 

X 

104 

REM 

X 

Dans ce programme la 

X 

119 

REM 

X 

sa Boite Aux Lettres 

X 

105 

REM 

X 

prise 3 de l'interface 

X 

120 

REM 

X 

Minitel Tel 36 15 91 77 

X 

106 

REM 

X 

ATARI A850 est reliee 

X 

121 

REM 

X 

Code d'accès SAM 

X 

107 

REM 

X 

au Minitel Via un petit 

X 

122 

REM 

X 

pour des renseigements 

X 

108 

REM 

X 

montage électronique 

X 

123 

REM 

X 

sur FANITEL 

X 

109 

REM 

X 

qui adapte le +-12 Volts 

X 

124 

REM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

110 

REM 

X 

aux 0/5 Volts du Minitel 

X 

125 

REM 

X 


X 

111 

REM 

X 


X 

126 

REM 

X 

Programme réalisé par: 

X 

112 

REM 

X 

SURTOUT NE PAS BRANCHER 

X 

127 

REM 

X 


X 

113 

REM 

X 


X 

128 

REM 

X 

Laurent Decomble 

X 

1 14 

REM 

xDIRECTEMENT A850 & MINITELx 

■ 

129 

REM 

X 


X 
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(A A 


130 REM a#####*#*##**#**##**######** 

1000 GOTO 1140 

1010 IF PEEK(753)< >3 THEN 1010 
1020 R=PEEK(764): FOR A=1 TO 10:NEXT A:PO 
KE 764,255:RETURN 

1030 FOR A=8 TO IMPOSITION 32,A:? " ”:N 
EXT A:RETURN 

1040 FOR A=14 TO 15:POSITION 32,A:? ” ”: 
NEXT A:RETURN 

1050 FOR A= 18 TO 19:POSITION 32,A:? ” ”: 
NEXT A:RETURN 

1060 RETURN : REM SOUND 2,10,20,6 : FOR A=1 
TO 50:NEXT AïSOUND 2,0,0,0:RETURN 
1070 RETURN : REM SOUND 2,240,10,10 : FOR A 
= 1 TO 20:NEXT A: SOUND 2,0,0,0 :RETURN 
1080 RETURN : REM SOUND 2,2,2,6:FOR A=1 T 
O 5:NEXT A:SOUND 2,0,0,0 :RETURN 
1090 FOR TEMPO=1 TO 10:NEXT TEMPO:RETURN 

1100 IF B>63 THEN GOTO 1120 
1110 B=B+32: GOTO 1130 
1120 IF B<96 THEN B=B-64 
1130 RETURN 

1140 GOSUB 3040:REM INITIALISATIONS 
1150 GOSUB 1460:REM MENU PRINCIPAL 
1160 GOSUB 1010:REM SAISIE CARACTERE 
1170 IF R=KL THEN GOSUB 1710 
1180 IF R=KE THEN GOSUB 1060:GOSUB 1830 
1190 IF R-KS THEN GOSUB 1060:GOTO 1990 
1200 IF R=K1 OR R a K2 OR R=K3 OR R=K4 THE 
N GOSUB 1060:GOSUB 2000 
1210 IF R=K5 THEN GOSUB 1060:GOSUB 2060 
1220 IF R=K6 OR R=*K7 THEN GOSUB 1060: GOS 
UB 2180 

1230 IF R=K8 THEN GOSUB 1060:GOSUB 2220 
1240 IF R=K9 OR R=K0 THEN GOSUB 1060:GOS 
UB 2340 

1250 IF R=KR THEN GOSUB 1060:GOSUB 2700 

1260 IF R=KC THEN GOSUB 1060:GOSUB 2850 

1270 IF R=KA THEN GOSUB 1030:GOSUB 1040: 

GOSUB 1050: FSTO0: FSFC=0: FSNI=0:FSPC=0: 
NR=0:NC=1:GOSUB 1060 


1280 

TA=0 




1290 

IF FSTC=0 

THEN 

GOTO 

1310 

1300 

TA=TA+2 




1310 

IF FSCC=0 

THEN 

GOTO 

1330 

1320 

TA=TA+2 




1330 

IF FSFC=0 

THEN 

GOTO 

1350 

1340 

TA=TA+2 




1350 

IF FSCF=0 

THEN 

GOTO 

1370 

1360 

TA=TA+2 




1370 

IF FSNI=0 

THEN 

GOTO 

1390 

1380 

TA=TA+2 




1390 

IF FSPC = 0 

THEN 

GOTO 

1410 

1400 

TA=TA+3:REM TROIS OCTETS ! 

1410 

POSITION 

13,0:? 

TA; ” 

H 

1420 

POSITION 

23,0:? 

NR; ” 

H 

1430 

POSITION 

35,0:? 

NC; ” 

M 

1440 

GOTO 1160:REM 

BOUCLE PRINCIPALE 

1450 

GOTO 1450 

: REM 

ARRET 

POUR ESSAIS 

1460 

POSITION 

0,0:? 

M Nbe 

D’octets Ran 

tee 

Cotonne 

•1 « 

9 


1470 

? ”UTILITAIRE POUR MINITELpar Déco 


mble 1 
1480 ? 


» 


1500 

o 

• V 

Li gne 

(A A 


nnule > 


Il # 

t 



1510 

? 

»♦ 



(RC&l 

2346790) 

99 v 

9 



1520 

? 

M 

Rangée 

il « 

< + /-) 


1530 

O 

V* 

i 

Colonne 

19 « 

( + /-> 


1540 

♦v 

O 

•• 

t 

/Normale (Retour).. 1 

1550 

O 

M 

Taille 

/ Double H&L.... 

. . . . 2 

1560 

f» 

O 

IV 


\ Double-Largeur 

. . . .3 

1570 

O 

IV 


\Double-Hauteur 

. . . .4 

1580 

7 





1590 

O 

II 


/Couleur. 

. . . . 5 

1600 

il 

7 

■’ 

Caractere< Fixe. 

. . . .6 

1610 

n 

? 

«V 


\C1ignote. 

. . . .7 

1620 

? 





1630 

VI 

o 

VI 


/Couleur. 

. . . .8 

1640 

IV 

7 

»• 

Fond 

< Normal (Retour)...? 

1650 

if 

? 

H 


\Inverae . 

. . . .0 

1660 

7 

VI 




1670 

7 

• V 

t 

Envoi 

Ligne Tampon > 

Mini 

tel 

v 





1680 

? 





1690 

? 


Stopper 

Liaison Atari- 

>Mini 


tel";: POSITION 0,0 
1700 RETURN 

1710 OPEN #1 ,4,0,”K: M : POSITION 2,4:? ”Li 
S ne”: GOSUB 1060 

1720 POSITION 0,2:? "- 

- ; POSITION 0,0 

1730 FOR CAR*0 TO 38:POKE 753,0 
1740 POSITION CAR,2:? : POSITION CAR, 

2:? : POSITION 0,2 

1750 IF PEEK(753)=0 THEN GOTO 1740 
1760 POSITION CAR,2 :GET #1,TOUCHE 
1770 IF TOUCHE=155 THEN NCAR=CAR:CAR=38: 
NEXT CAR:GOTO 1820 

1780 IF CAR>0 AND TOUCHE=126 THEN CAR=CA 
R-1 : ? "- M ;:POSITION 0,0:GOTO 1740 
1790 IF TOUCHE<32 OR TOUCHE>122 THEN GOS 
UB 1070:GOTO 1740 - 

1800 ? CHR$(TOUCHE):GOSUB 1080 
1810 NEXT CAR:NCAR=CAR 

1820 CLOSE #1 :GOSUB 1060:POSITION 2,4:? 
"Ligne”:RETURN 

1830 IF FSPC-0 THEN GOTO 1850 

1840 PUT #3,31:PUT #3,64+NR:PUT #3,64+NC 

1850 IF FSTC=0 THEN GOTO 1870 

1860 PUT #3,27:PUT #3,FSTC 

1870 IF FSCC=0 THEN GOTO 1890 

1880 PUT #3,27:PUT #3,FSCC 

1890 IF FSFC=0 THEN GOTO 1910 


1490 ? ” LIGNE TAMPON 


1900 PUT #3,27:PUT #3,FSFC 
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1910 IF FSCF=0 THEN GOTO 1930 
1920 PUT #3,27:PUT #3,FSCF 
1930 IF FSNI=0 THEN GOTO 1950 
1940 PUT #3,27:PUT #3,FSNI 
1950 IF FSCCO0 OR FSCFO0 THEN PUT #3,3 
2:REM CODE ESPACE QUJ VALIDE LES ATRI B 
UT S 

1960 FOR A=0 TO NCAR-1: B=*PEEK (ECRAN+80+A 
):C=B:GOSUB 1100 
1970 PUT #3,B:GOSUB 1090 
1980 NEXT A:RETURN 

1990 CLOSE #3:? CHR#(125):POKE 752,0:END 

2000 IF R-Kl THEN FSTC-76:Y=8:GOTO 2040 

2010 IF R=K2 THEN FSTC-79:Y-9: GOTO 2040 
2020 IF R=K3 THEN FSTC®78:Y=10: GOTO 2040 
2030 FSTC=77: Y= 11 
2040 GOSUB 1030 

2050 POSITION 32,Y:? ”/”:RETURN . 

2060 X*14:Y=13:GOSUB 2380: REM MENU COUL 
EURS 

2070 GOSUB 1010:REM SAISIE CARACTERE 
2080 IF ROKESC THEN GOTO 2110 
2090 GOSUB 1070 :FSCC=0: REM FONCTION INV 
ALI DEE • 

2100 GOTO 2170 

2110 IF R*K0 OR R-Kl OR R«K2 OR R=K3 OR 
R=K4 OR R-K5 OR R=K6 OR R=K7 OR R=K8 TH 
EN GOSUB 1080:GOTO 2130 
2120 GOTO 2070:REM BOUCLE COULEUR CARAC 
TERE 

2130 GOSUB 2600:REM TRANSFORMATION MINI 
TEL 

2140 POSITION 32,13:? C$ 

2150 IF R=0 THEN GOTO 2090 
2160 FSCC=R 

2170 GOSUB 2490:RETURN 

2180 IF R=K6 THEN FSFC-73:Y=14^ GOTO 2200 
2190 IF R=K7 THEN FSFC=72:Y=15:GOTO 2200 
2200 GOSUB 1040:GOSUB 1080 
2210 POSITION 32,Y:? "/":RETURN 
2220 X« 14 : Y= 13 :GOSUB 2380:REM MENU COUL 
EURS 

2230 GOSUB 1010:REM SAISIE CARACTERE 
2240 IF ROKESC THEN GOTO 2270 
2250 GOSUB 1070:FSCF-0:REM FONCTION INV 
ALI DEE 

2260 GOTO 2330 

2270 IF R=K0 OR R=K1 OR R=K2 OR R*=K3 OR 
R=K4 OR R=K5 OR R=K6 OR R=K7 OR R-K8 TH 
EN GOSUB 1080:GOTO 2290 
2280 GOTO 2230:REM BOUCLE COULEUR CARAC 
TERE 

2290 GOSUB 2600:REM TRANSFORMATION MINI 
TEL 

2300 POSITION 32,17:? C$ 

2310 IF R*0 THEN GOTO 2250 

2320 FSCF«R+16 

2330 GOSUB 2490:RETURN 

2340 IF R-K9 THEN FSNI-92: Y*18:GOTO 2360 
2350 IF R*K0 THEN FSNI*93:Y=19:GOTO 2360 
2360 GOSUB 1050:GOSUB 1080 
2370 POSITION 32,Y:? "/”:RETURN 
2380 POSITION X,Y:? n Luminosite/Cou leur " 
2390 POSITION X, Y+l î ? ” 0 V. Noir 1 

I» 


2400 POSITION X,Y+2: ? M 40 X Bleu 2 

2410 POSITION X,Y+3: ? M 50 X Rouie 3 

fi 

2420 POSITION X,Y+4: ? M 60 X Violet 4 

VI 

2430 POSITION X,Y+5:? M 70 X Vert 5 

f» 

2440 POSITION X,Y+6: ? " 80 X Cyan 6 

M 

2450 POSITION X,Y+7: ? w 90 X faune 7 

M 

2460 POSITION X,Y+8:? n 100 X Blanc 8 
•• 

2470 POSITION X,Y+9:? " (PAS D'ATTRIBUT) 

0 ’• 

2480 RETURN 

2490 POSITION X, Y: ? “ouleur. 5" 

2500 POSITION X,Y+l: ? "ixe. 

6 " 

2510 POSITION X,Y+2: ? "lignote. 

?” 

2520 POSITION X,Y+3: ? " 

M 

2530 POSITION X,Y+4: ? "ouleur. 

8" 

2540 POSITION X,Y+5:? "ormal (Retour)... 
?" 

2550 POSITION X,Y+6: ? "nverse. 

0 " 

2560 POSITION X,Y+7: ? " 

•f 

2570 POSITION X,Y+8: ? ”igne Tampon > Min 
i” 

2580 POSITION X,Y+9: ? ” 

2590 RETURN 

2600 IF R=31 THEN R=64:C$* M /Noir ":GOTO 
2690 

2610 IF R*30 THEN R*68:C$-"/Bleu ":GOTO 
2690 

2620 IF R=26 THEN R=65: C$=* "/Rouge ”:GOTO 
2690 

2630 IF R-24 THEN R“69:C$="/Violet”:GOTO 
2690 

2640 IF R-29 THEN R=66:C$»"/Vert ":GOTO 
2690 

2650 IF R=27 THEN R*70:C8*"/Cyan ":GOTO 
2690 

2660 IF R=51 THEN R=67:C$*"/Jaune ”:GOTO 
2690 

2670 IF R"=53 THEN R=71 : C$-"/Blanc ":GOTO 
2690 

2680 IF R=K0 THEN R=*0:C$»" 

2690 RETURN 

2700 POSITION 2,6:? " Raniee " 

2710 GOSUB 1010 

2720 IF R=KPLUS OR R=KMOINS THEN GOTO 27 
50 

2730 IF R=KESC THEN GOTO 2840 
2740 GOTO 2710 

2750 IF R=KPLUS THEN GOTO 2790 
2760 NR=NR-1: IF NR<0 THEN NR=24:GOTO 282 
0 

2770 POSITION 13,6:? ”-":FOR A*3 TO NR:N 
EXT A 
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2780 POSITION 13,6:? M -":GOTO 2820 
2790 NR=NR+1: IF NR>24 THEN NR=0:GOTO 282 
0 

2800 POSITION 11,6:? "+”:FOR A=>3 TO NR: N 
EXT A 

2810 POSITION 11,6:? "+" 

2820 POSITION 23,0:? NR; " " 

2830 GOTO 2710 

2040 FSPC-31 : POSITION 2,6:? "Æangee”:RET 
URN 

2850 POSITION 2,7:? "Colonne" 

2860 GOSUB 1010 

2870 IF R=KPLUS OR R=KMOINS THEN GOTO 29 
00 

2880 IF R=KESC THEN GOTO 2990 
2890 GOTO 2860 

2900 IF R=KPLUS THEN GOTO 2940 
2910 N0N01:IF NC< 1 THEN NC=40:GOTO 297 
0 

2920 POSITION 13,7:? "-”:FOR A=S TO NC/2 
:NEXT A 

2930 POSITION 13,7:? "-”:GOTO 2970. 

2940 NC=NC+1: IF NC>40 THEN NC=*1:G0T0 297 
0 

2950 POSITION 11,7:? "*”:FOR A=6 TO NC/2 
:NEXT A 

2960 POSITION 11,7:? "+" 

2970 POSITION 35,0:? NC;" " 

2980 GOTO 2860 

2990 FSPC=31:POSITION 2,7:? "Colonne”:RE 
TURN 

3000 OPEN #1,4,0,"K:” 

3010 FOR CAR=0 TO 39 


3020 POSITION CAR,2:? POSITION CAR,2 
; ? »... 

3030 IF PEEK(753)=0 THEN GOTO 3020 
3040 KL=0:KE=42:KS=62: Kl*31 : K2**30: K3=26 : 
KESC*28 

3050 K4*24:K5=29:K6»27:K7*51:K8=53:K9=48 
:K0*50 

3060 KA=63:KR=40:KC«18:KPLUS-6:KMOINS=14 
3070 NR*0: NC*1:DIM C$(8):C*«" 

3080 FSTC=*0:REM Taille Caractère 
3090 FSCC=0:REM Couleur Caractère 
3100 FSFC s 0:REM Fixe ou Clignotant 
3110 FSCF=0:REM Couleur Fond 
3120 FSNI=0: REM Formai ou Inverse 
3130 FSPC=0:REM Position Curseur 
3140 GRAPHICS 0:POKE 752,l:POKE 82,0:SET 
COLOR 2,0,0:SETCOLOR 1,0,14:? CHR$(125> 
3150 ECRAN=PEEK(88)+256tfPEEK(89) 

3160 REM IFITIALISATIOF A850 
3170 OPEN #3,13,0,”R3:":REM SI PRISE 3 
UTILISEE 

3180 XIO 36,#3,10,0,"R3:" 

3190 XIO 38,#3,2,0,"R3:" 

3200 XIO 40,#3,0,0,"R3:" 

3210 PUT #3,12:REM EFFACE L'ECRAN DU NI 
FITEL (PEUT ETRE A ENLEVER) 

3220 RETURN _ 

Commentaires : 

Ce programme est conçu pour le module-Atari A 850. Si vous ne I’ave 2 pas, 
remplacez la ligne 3100 par : OPEN# 3, 8, 0, « E : » : RETURN. 

Les lettres du programme imprimées en ital sont à taper en Inversion vidéo. 


Si vous avez un problème, contactez « Fanhard » sur Télétel 3 : 
36.15 SAM, rubrique Bal. 


ATARI XL 


MAITRE CORBEAU 

Générez des camemberts zébrés de quatre couleurs ! Vous 
indiquez le nombre de traits désirés, celui des données à 
entrer, le résultat s'affiche à l'écran puis sortira sur 
imprimante Sony PRN-C41 (seule l'initiation du rayon et 
du passage en mode graphique diffère du plotter Atari). 


10 REM ****************************** 

150 ? "QUEL EST LE NOMBRE DE DONNEES : 

20 REM * * 

INPUT ND 

30 REM # MAITRE CORBEAU * 

160 DIM D(ND+2),L$((ND+2)*10),R$(40),B$( 

40 REM * * 

10):B$= ” 

50 REM * Pour Plotier Sony Prn-c41 * 

170 FOR A=1 TO ND+2 

60 REM * * 

180 L$((A-l)*10 + 1,(A-l)*10+10)-B$:NEXT A 

70 REM * par Decomble Laurent * 

190 J «= ND+2 : VR~ INT (480/K) :DIM AN(J),A1(J) 

80 REM * * 

,A2(J),A3(J),T(J),NT(J),CR(J),Cl(J),C2( 

90 REM ****************************** 

J),C3(J),RC(J),C(J) 

100 PI*3.14159265 

200 DIM XI(J,K),X3(J,K),Y1(J,K),Y3(J,K> 

110 REM ***** MODULE No 1 ***** 

210 IF FRE (0X8000 THEN ? "TROP DE PARAM 

120 PRINT CHR$(125): ? ” NODULE 1 " 

ETRES, RELANCEZ LE PROGRAMME ":STOP : ST 

130 RA=480 

OP 

140 ? "QUEL EST LE NOMBRE DE TRAITS DESI 

220 ? "Y-A-T'IL UNE SOMME GLOBALE (0/N) 

RES ";:INPUT K 

:INPUT R* 
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230 IF R$-”0” THEN GOSUB 400:GOTO 1740 

780 REM ** CALCUL DES POINTS ** 

240 IF R$*"N" THEN GOTO 260 

790 FOR Z=1 TO NS;? ”-No ";Z 

250 GOTO 220 

800 Al-Al(Z):A2-A2(Z):A3-A3(Z) 

260 SG-0 

810 GOSUB 1050 

270 FOR A*1 TO ND 

820 T(Z)-T:NT(Z)-INT(RA/T): RC(Z)-NT(Z)*T 

280 GOSUB 360 

830 FOR Y-1 TO NT(Z) 

290 SG-SG+D(A) 

840 YY-T(Z)*Y 

300 NEXT A 

850 GOSUB 1150 

310 ? "LE TOTAL EST ";SG 

860 NEXT Y 

320 FOR Z-0 TO J : NT(Z)*0:AN(Z)«0 

870 DS-0.9:DI--0.9:Bl-Al:B2=A2:B3=A3:NU= 

330 Al (Z) =0: A2 <Z)-0:A3 (Z) =0: T (Z)-0: Cl (Z) 

0 :RC-RC(Z) 

= 0 : C2 (Z) *0: C3 (Z) =0: RC (Z) *0: C (Z) *=0: CR (Z) 

880 GOSUB 1190 

«0:NEXT Z 

890 GOSUB 1230 

340 FOR X=0 TO J : FOR Z-0 TO K:X1(X,Z>=0: 

900 IF (B2X0.3 THEN GOTO 1010 

X3 (X, Z) =0 : Y1 (X,Z)=0 :Y3(X,Z)=0: NEXT Z: NE 

910 NU-NU+1:C*160 

XT X 

920 C=C/2 

350 GOTO 590 

930 GOSUB 1250 

360 ? "-Données No ";A;:INPUT DA:D(A)-DA 

940 IF DT<0 THEN NU=NU-1:G0T0 1010 

370 ? ”—LIBELLE ";A;:INPUT R$:L-LEN(R 

950 IF E<DI THEN GOTO 920 

$): IF L>10 THEN GOTO 370 

960 IF E>DS THEN C=C*1.5:G0T0 930 

380 L$((A-l)*10+1,(A-l)#10+10)=R$(1,L) 

970 GOSUB 1340 

390 RETURN 

980 X1-X5;Y1-Y5:X3=X7:Y3-Y7 

400 ? "DE QUEL MONTANT EST CETTE SOMME " 

990 GOSUB 1230 

:INPUT SG 

1000 B1 = AD:B3=AF:B2 = B3-B1:Al-Bl:A2 = B2: A3 

410 SP=0 

==B3: RC-RA: GOTO 900 

420 FOR A=1 TO ND 

1010 NT(Z)= NT(Z)+NU 

430 GOSUB 360 

1020 NEXT Z 

440 SP-SP+D(A):NEXT A:DI-SG-SP:DJ=INT((D 

1030 GOTO 1380 

1*10000)/SG)/100 

1040 REM *** CALCUL DE T *** 

450 IF SP-SG THEN GOSUB 500:RETURN 

1050 T=0: DE=VR: DS-0.24:DI=*-0.24 

460 ND=ND+1 

1060 T-T+DE 

470 IF SP>SG THEN GOSUB 510:GOTO 490 

1070 Ml=(T*COS(Al)+T*COS(A3))/2 

480 GOSUB 540 

1080 M2=(-T*SIN(Al) + (-T*SIN(A3)) )/2 

490 RETURN 

1090 DV=SQR(Ml*M1+M2*M2) 

500 ? "TOTAL EQUILIBRE ":RETURN 

1100 E=DV-VR 

510 ? "IL MANQUERA :";ABS(DI) 

1110 IF E>DS THEN T=T-DE:DE-DE/5:GOTO 10 

520 GOSUB 570 

60 

530 L$((ND-1)*10+1,(ND-1)*10+6)*"MANQUE” 

1120 IF E<DI THEN GOTO 1060 

:D(ND)=DI:RETURN 

1130 RETURN 

540 ? "IL RESTERA :";ABS(DI) 

1140 REM ** CALCUL SUR SECTEUR DROIT ** 

550 GOSUB 570 

1150 XI(Z,Y)=YY*COS(Al):Y1(Z,Y)=-YY*SIN( 

560 L$((ND-1)*10+1,(ND-1)*10+6)="RESTE " 

Al) 

:D(ND)«DI:RETURN 

1160 X3(Z r Y) e YY*COS(A3):Y3(Z,Y)=-YY*SIN( 

570 ? " SOIT DJ ; "X”:RETURN 

A3) 

580 REM ***** MODULE No 2 ***** 

1170 RETURN 

590 7 ” NODULE 2 ”:B=0:CR=3 

1180 REM *** CALCUL SUR SECTEUR COURBE * 

600 FOR A= 1 TO ND: B-B+l : CR-CR+l 

** 

610 IF CR>3 THEN CR-0:IF A-ND THEN CR*2 

1190 X1=RC*C0S(Al):X3-RC*C0S(A3) 

620 C2( A) =(D(A)*2*PI)/SG 

1200 Y1=-RC*SIN(Al):Y3=-RC*SIN(A3) 

630 A2(B)=C2(A): CR(B)»CR 

1210 RETURN 

640 IF C2(A)X(320#PI)/180) THEN GOSUB 7 

1220 REM *** MX,MY *** 

60:GOTO 660 

1230 MX=(X1+X3)/2:MY*(Y1+Y3)/2:RETURN 

650 IF C2(A)>((160#PI)/180) THEN A2(B)=C 

1240 REM *** CALCULS DT #** 

2(A)/2:B-B+l: CR(B)=CR:A2(B)=C2(A)/2 

1250 AD=(B2/C)+B1:AF-B3-(B2/C) 

660 NEXT A: NS-B 

1260 A4-AF-AD 

670 FOR A=1 TO ND 

1270 X5»RA*C0S(AD):X7»RA#C0S(AF) 

680 Cl (A)=C3(A-l) :C3(A)-Cl (A)+C2(A) 

1280 Y5=-RA*SIN(AD):Y7=-RA*SIN(AF) 

690 NEXT A 

1290 NX-(X5+X7)/2: NY-(Y5+Y7)/2 

700 FOR A-1 TO NS 

1300 DT-SQR(NX*NX+NY*NY)-SQR(MX#MX+MY*MY 

710 Al(A)=A3(A-l): A3(A)-Al(A)+A2(A) 

) 

720 NEXT A 

1310 E-DT-VR 

730 GOTO 790 

1320 RETURN 

740 REM * Al,A2,A3—> RAYURES *** 

1330 REM *** XI(Z,NU) *** 

750 REM * Cl,C2,C3—> SECTEURS #* 

1340 W=NT(Z)+NU 

760 A2(B)-C2(A)/3:B-B+l: CR(B)-CR:A2(B)=C 

1350 XI(Z,W)=X5:Y1(Z,W)-Y5 

2(A)/3:B-B+l: CR(B)-CR:A2(B)=C2(A)/3 

1360 X3(Z,W)*X7:Y3(Z,W)-Y7 

770 RETURN 

1370 RETURN 





1360 GOSUB 1610 

1710 DRAWTO OX+X, OY+-Y 

1390 OX=80:OY=96:COLOR 1 

1720 NEXT M:RETURN 

1400 FOR A=1 TO ND 

1730 FOR A=1 TO ND 

1410 PLOT OX,OY 

1740 LPRINT "H" 

1420 DRAWTO RE*COS(Cl(A))+OX,-RE*SIN<C1 ( 

1750 LPRINT ”D”;RI#COS(Cl(A) ) ; ”, ”;RI#SIN 

A) ) +OY 

(Cl(A) ) ,1 

1430 PLOT OX,OY 

1760 LPRINT "D0,0 " 

1440 DRAWTO RE#COS<C3 ( A))+OX,-RE#SIN(C3< 

1770 NEXT A 

A))+OY 

1780 FOR A=1 TO NS:LPRINT "H":LPRINT ”C” 

1450 NEXT A:GOSUB 1940 

; CR(A):F=NT(A) 

1460 GOSUB 1490 

1790 FOR B=1 TO NT(A) î PR=F-INT(F/2)#2 

1470 GOSUB 1730 

1800 IF PR=0 THEN GOTO 1880 

1480 GOTO 1480 

1810 LPRINT ”M”;X1(A,B); ”,”;-Yl(A,B) 

1820 LPRINT ”D ” ; X3 ( A, B ) ; ” , " ;- Y3 ( A,B > 

1490 LPRINT CHRf(27 ); CHR$ (35 ) 

1500 LPRINT 'T’ 

1830 IF B=F THEN GOTO 1930 

1510 LPRINT ”M480 , -480 ” 

1840 B-B+l 

1520 LPRINT ”1” 

1850 LPRINT "M”;X3(A,B) ; ", -Y3(A,B) 

1530 RI=480 

1860 LPRINT ”D”;X1(A,B) ; ”, ”;-Yl(A,B) 

1540 LPRINT "M";RI;",0" 

1870 GOTO 1930 

1550 FOR M=0 TO 4#PI STEP PI/50 - 

1880 LPRINT ”M”;X3(A,B);",";-Y3(A,B> 

1560 X=RI*COS(M) : Y=-RI#SIN(M) 

1890 LPRINT ”D"; XI ( A,B) ;” ,-Y1(A,B) 

1570 LPRINT ”D";X; ”, Y 

1900 IF B=F THEN GOTO 1930 

1580 NEXT 11 

1910 B=B+1 : LPRINT ”M”;XI(A,B) ; ",- Y1(A, 

1590 LPRINT "D”;RI ; ",0" 

B) 

1600 RETURN 

1920 LPRINT ”D";X3 ( A,B) ; ”,-Y3(A,B) 

1610 REM *## CERCLE A L’ECRAN *## 

1930 NEXT B:NEXT A:RETURN 

1620 GRAPHICS 15+16:POKE 708,70:POKE 709 

1940 REM RAYURES 

,236 :POKE 710,188:POKE 712, 0 : S=PI/40 : RE 

1950 FOR A=1 TO NS:COLOR CR(A) 

= 79 

1960 IF CR(A)=0 THEN COLOR 2 

1630 COLOR 3 

1970 IF A=NS THEN COLOR 2 

1640 OX=80:OY=96:COLOR 1 : PLOT OX,OY 

1980 FOR B=1 TO NT(A) 

1650 FOR M=S TO 2*PI STEP S 

1990 PLOT XI(A,B)/6.08+OX,Y1(A,B)/6.08+0 

1660 X=(RE*COS(M) ): U= <RE*COS(M-S) ) 

Y 

1670 Y= ( -REttSIN(M) ): V= <-RE*SIN(M-S) ) 

2000 DRAWTO X3(A,B)/6.08+OX,Y3 ( A,B)/6.08 

1680 X=INT(X+0. 5) : U=INT(U+0.5) 

+OY 

1690 Y=INT ( Y+0.5) : V=INT(V+0.5) 

1700 PLOT OX+U.OY+V 

2010 NEXT B:NEXT A:RETURN 


ATARI XL 


UFSTING 

Présentez des listings fignolés, avec vos commentaires en 
marge. En mode simulation, vous travaillez comme 
pour sortir sur imprimante, mais le texte est décortiqué à 
Técran. Vous pouvez définir la taille de votre imprimante 
fictive, et travailler plus vite avec le Ram disk du 130 XE. 


100 

REM 

a##**##***######*##**#**#***** 

220 ? ” UFSTING ":? 

110 

REM 

# 


# 

230 ? " Reamenage vos listings a la larg 

120 

REM 

# 

LIFST ING 

# 

eur”:? 

130 

REM 

* 


* 

240 ? ” desiree tout en décalant 1 ’exce 

140 

REM 

# 

Le L/FTING de vos LISTINGS 

# 

s de ? 

150 

REM 

* 


# 

250 ? ” chaque ligne, faisant ainsi res 

160 

REM 

# 

par laurent Decoable 

# 

ortir”: ? 

170 

REM 

# 


* 

260 ? ” les Numéros de ligne ”r? :? :? 

180 

REM 

##*#############**#*#*###**#*# 

270 ? "Essai sur Ecran. 

190 

DIM 

R$(255):POKE 752,1 


. . (E)* : ? 

200 

POKE 82,0:POKE 710,0:POKE 709,15 


280 ? ” (Compte le nombre de lignes &” 

210 

PR INT 

CHR$(125) 


290 ?” le nombre des dépassements)”:? 


64 








: ? 

630 GOTO 410 

900 ? "Essai sur Imprimante. 1 

If) " . o 

640 POKE 752,1:? " lifsting 

n 

310 ? " (Qualité courrier ou non 8< " 

650 ? ” IMPRIMANTE :? :? 

320 ? " 10 ou 12 caractères par pouce) ” 

330 GOSUB 920:IF CAR<>42 AND CAR<>13 THE 

660 ? "Qualité Courrier.... Oui /Non.... 

N SOUND 2,202 f 12,8:GOTO 330 

. . <Q) ”: ? 

340 IF CAR=42 THEN POSITION 10,13:? " ECR 

670 ?” 10 Caractères / pouce ( 80 col). 

AN": POSITION 36,19:? ”1” 

. . (/)”:? 

350 IF CAR=13 THEN POSITION 10,19:? "INP 

680 ?" 12 Caractères / pouce (132 col). 

RI MANTE"', POSITION 36,13:? "E" 

. . (2)? 

360 SOUND 2,64,12,10:FOR A*1 TO 50:NEXT 

690 ? "Validation de cette configuration 

A:SOUND 2,32,12,14:FOR A=1 TO 30:NEXT A 

..<!/)":? 

: SOUND 2,0,0,0:POKE 764,255 

700 COUR=1:OK«0 

370 POKE 752,0:FOR A*1 TO 500:NEXT A 

710 GOSUB 920: IF CAR047 AND CAR031 AND 

380 ? CHR$(125): IF CAR=13 THEN GOTO 640 

CARO30 AND CAR016 THEN SOUND 2,202,1 

390 NL=0i NT=0: LT=0: LINF=255: LSUP=0 : LTFT= 

. 2,8:GOTO 710 

0:LFTI=255:LFTS=0 

720 IF. CAR=31 THEN 0K s 1 : LAR=80: POSITION 

400 GOSUB 940 : ? CHR$(125):POKE 752,1 

1,8:? ”/0”:POSITION 1,10:? ”12”:G0T0 710 

410 POSITION 0,12:A=0:TRAP 910:INPUT #1, 

730 IF CAR*30 THEN OK*1 :LAR-77:POSITION 

R$:L=LEN(RI):LO=L:LT*LT+L:NL=NL+1 

1,8:? ”10”:POSITION 1,10:? ”/2”:G0T0 710 

420 POSITION 0,0:? ”*********Nombre*Long 

740 IF CAR-16 AND OK-1 THEN POKE 764,255 

.Moyenne*Long .Tôt ale*Lignes** # 

.'GOTO 790 

* *" 

750 IF CAR=47 THEN COUR= NOT COUR 

430 POSITION 0,2:? "a#**#####*###*##*##* 

760 IF COUR-1 THEN POSITION 20,6:? ” Oui 


/Non ” 

* #” 

770 IF COUR=0 THEN POSITION 20,6:? ” Oui 

440 POSITION 0,4:? ”##*####*##*###*##### 

/Non” 

**********************7*0*0/** #" 

780 FOR A*1 TO 120:NEXT A:GOTO 710 

450 POSITION 0,6:? ”##*##*###/.. Min**L.Ma 
x . * *L i g nés** * 

790 CLOSE #2 :TRAP 900:OPEN #2,8,0,”P:” 

800 LPRINT CHR*(27);CHR$(LAR);CHR$(27);C 

*” 

HR$ (120);CHR$(COUR) 

460 POSITION 0,8:? ”#*##########*####**# 

810 GOSUB 940 

*** Tronçons* * 

820 A=0: ? ”- ”:R$=TRAP 910:INPUT # 

*’• 

1 ; R$ 

470 POSITION 0,10:? ”*#*################ 

830 L-LEN(Ri) :LO*=L 

###*" 

840 IF L<LS THEN ? #2 ; Ri ( 1, L): GOTO 820 

480 LML=INT((LT/NL)#10)/10:POSITION 10,5 

850 IF L>LA THEN ? #2 ;R$(1+A,LA+A):A=A+L 

: ? NL+NT 

A:L=L-LA 

490 IF NT>0 THEN LMT=INT((LTFT/NT)*10)/I 

860 IF L>LA THEN ? #2;” Ri(1+A,LI+A): ? 

0 

R$ ( 1+A, LI+A) : A*A+LI: L*L-LI : GOTO 860 

500 POSITION 10,1:? NL:POSITION 18,1:? L 

870 ? #2;” ” ; Ri (LO-L+1,LO): ? R$(L0-L+1,L 

ML,- " ”: POSITION 31,1:? LT 

0) 

510 POSITION 10,3:? NT:POSITION 18,3:? L 

880 GOTO 820 

MT;” ":POSITION 31,3:? LTFT 

890 ? "erreur de disque”:STOP 

520 POSITION 10,7:? LINF;” ”:POSITION 17 
,7:? LSUP;” " 

900 ? "erreur Imprimante”:STOP 

910 ? "erreur Fin De Fichier (EOF) ou di 

530 POSITION 10,9:? LFTI;" ”:POSITION 17 

sque":STOP 

,9:? LFTS;" " 

920 POKE 752,1: POKE 755,CUR+1:IF PEEK(75 

540 IF L<LINF THEN LINF=L 

3)03 THEN CUR= NOT CUR:FOR A=0 TO 60: N 

550 IF L>LSUP THEN LSUP=L 

EXT A:SOUND 2,0,0,0:GOTO 920 

560 IF L<LS THEN GOTO 410 

930 CAR=PEEK(764):POKE 755,2:RETURN 

570 IF L>LA THEN A=A+LAî L“L-LA 

940 ? "LARGEUR DE LA LIGNE :INPUT LA 

580 IF L>LA THEN A=A+LI:L«L-LI:NT=NT+1 : G 

950 ? :? "-NOM DU PROGRAMME EX;D1:CELIA. 

OTO 580 

LST (doit etre sous forme Listing) : I 

590 IF L>0 THEN NT-NT+1:LTFT-LTFT+L 

NPUT R* 

600 IF L»0 THEN GOTO 410 

960 LI=LA-1:LS=LA+1 

610 IF LCLFTI THEN LFTI“L 

970 TRAP 890:OPEN #1,4,0,Ri 

620 IF L>LFTS THEN LFTS*L 

900 RETURN 
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COMMODORE 64 


MOTO CROSS 

L'ordinateur est impartial ! Seule votre capacité à maîtriser 
le parcours sera prise en compte dans l'élaboration de la 
note finale. Soyez vigilant, ce concours international 
de moto-cross est réputé comme l'un des plus difficiles... 


READY. 


5 REM MOTOCROSS 
10 P0KE53270,200 
20 P0KE53264,0 

30 V=5324B:POKEV+21,0 : REM REGISTRE 
40 P0KE53280,6:P0KE53281,14:P0KE646,O 
50 PRINTCHR*(147);;CHR*(142);CHR$(8) 

60 PR INT" m r\ s~--. 

70 PR I NT " I I I I I II I HH I I ,v —•• 

80 PRINT" I III I II I I I I I I I 

90 PR INT" ^ -*■ " 

100 REM CADRE 

110 FORT =1144T01144+39:FGKET,127:POKET+54272,1 : NEXT 

120 FORT= 1424T01424+39: PQKET, 127:POKET+54272, l.-NEXT 

130 F0RT=1144T01424STEP40:POKET,127:POKET+54272,1 :NEXT 

140 F0RT=>1 144+39T01424+39STEP40: POKET , 127: POKET+54272,1 : NEXT 

145 FORT—1984T02Û23:POKET,160:POKET+54272,9:NEXT 

150 REM CHRGT DES DATAS 


170 F0RN=OTO62:READQ:PQKE245+64+N,Q:NEXT : REM MOTO DROITE 
180 FORN=0T062:READQ:P0KE246*64+N,Q:NEXT : REM MOTO LEVEE 
185 FORN=OT062: READQ: *P0KE247*64+N, G : NEXT : REM NUAGE 
188 FORN=>OTG62: READQ: P0KE248+64+N , 0: NEXT : REM SOLEIL 
190 PRINT M :impr;5PC< 15) " SKŒSPACE*>" 

200 P0KEV+40,1 :POKEV+41,7 
205 P0KE2041,247:P0KE2042,248 
208 : 

210 REM MOTO #1 

220 DATAI , 128,0,3,192,0,3,56,0 ' 

230 DATA3,192,0,1,206,0,0,30,0 

240 DATAI ,243,192,66,33,160 /K. 

250 DATAI 14,33,224,126,31,128 

260 DATA 127,139,128,0,67,0 / 

270 DATA 14,231,112,63,153,252 

280 DATA99,195,198,198,102,99 ■ FêÉÏiÊ 

290 DATA204,102,51,192,102,3 M (51 

300 DATA96,195,6,63,129,252,14,0,112 ■ 

305 REM MOTO #2 

310 DATA4,0,0,104,0,0,240,20,0 ^ 

320 DATA248,60,0,1 18,102,0 -- 

330 DATA41,198,112,16,131,252,8,1 15,6 v 

340 DATA 196, 15, 195,255,230,115,120,46,3 

350 DATA32,71 ,6,14,121,252,63,128,1 12 

360 DATA99,192,0,19B,96,0,204,96,0 : 

370 DATA 192,96,0,96,192,0,63, 128,0,14,0,0 _ 

380 REM PRESENTATION MOTO-CROSS ^ 

390 POKEV+1,200:POKEV,0:POKEV+39,1 —f * 

400 POKEV+23,1 :POKEV+29,1 :POKEV+21,1 
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410 P0KE2040,245 

420 X=X+4:IFX>255THENX=0 

430 POKEV,X :IFRND(1)*1000<5QTHEN450 

435 IFPEEK(203)=6OTHEN405 

440 G0T0420 

450 P0KE2040,246 

460 X=X+5:IFX>255THENX=0 

470 POKEV,X:IFRND(1)*1000<50THEN410 

475 IFPEEK<203)=60THEN485 

400 G0TG460 

405 F0RT=0T024:P0KEV+1,PEEK< V+1 >-0:SYS59626:NEXTT:GOSUB12000 
486 P0KE53281,14:P0KE53280,14 

490 PRINTCHR$ (147): POKE53200,14: POKE53201,14: P0KEV+2,250: PÜKEV+3,150: POKEVh-2 1,7 

495 PQKEV+4,170:POKEV+5,110 

500 POKEV+23,O:POKEV+29,2:POKEV+39,11 

510 REM BOUCLE PRINCIPALE 

520 F0RB=1T010: PR INT" ri" : GOSUB 1000 

600 REM DECOR AU HASARD 

610 PR INT" SW TE-0 

612 PRINT ,l ^tPlil»ÜIf«»»»MmN/ N/” 

613 PR I NT " 

615 POKEV+1,106;Y=106:FOKEV+31,0:L=1 
620 F0RX=0T0250STEP2 
630 D=PEEK<56320) : REM JOYSTICK 

640 IFD=119THENL=L+.3:IFL>5THENL=5 
645 IFD=123THENL=L—.3:IFL<0THENL=0 

650 X = X+L: TE=TE+1 : IFTE> 1OOTHENPRINT"£(pjviPj*JvJifiDISOUALIF1E ! *e-" : G0T09000 

660 IFPEEK < V+31)=1THENY=Y-3.5:POKEV+31,0:Q0T0670 
665 Y=Y+1.5 

670 POKEV,X :POKEV+1,Y:IFYC166THENP0KE2040,246 
600 IFY>166THENP0KE2040,245 

690 NEXTX:F0RT=YT0190:P0KEV+1,T:X = X+1 :IFX>255THENX=255 

692 POKEV,X:NEXTT 

693 IFL=5THENP0KEV+16,1 :GOSUB11000:GOT09000 

695 POKEV,0:POKEV+16,1:FORX = 1T090:POKEV,X :FORT=1T05:NEX TT,X :POKEV,0:POKEV+16,0 
690 GOSUB8000 
700 NEXTB:GOTO10000 
1000 : 

1005 PRINT"K/- 

1010 PRINT"I «BOSSE* # I" 

1020 PRINT" '- 

1025 PRINT" 


1030 

REM CHOIX D'UNE BOSSE AU 

HASARD 

1040 

I=INT<RND<1>*0)+1 




1050 

ONIG0SUB2000,2500, 

3000,3500 

, 4000,4500,5000,5540 

1060 

RETURN 





2000 

PRINT" 


SW 



2010 

PRINT" 


SW 



2020 

PRINT" 

sw 

SW 



2030 

RETURN 





2500 

PRINT" 


SW 


SW 1 

2510 

PRINT" 


SW 



2520 

PRINT" 

:r ^ 

SW 



2530 

RETURN 





3000 

PRINT" 

sw 


SW ^ 

3010 

PRINT" 

SW 


SW 


3020 

PRINT" 

SW 




3030 

RETURN 





3500 

PRINT" 


SW 



3510 

PRINT" 

sw 




3520 

PRINT" 

SW 




3530 

RETURN 





4000 

PRINT" 


SW 



4010 

PRINT" 

SW 
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4020 

PRINT" 

tr 



4030 

RETURN 




4500 

PRINT" 

zr 



4510 

PRINT" 

zr 



4520 

PRINT" 

rr 



4530 

RETURN 




5000 

PRINT" 

:r 

^ zr 


5010 

PRINT" 

z r 



5020 

PRINT" 

zr 



5030 

RETURN 




5500 

PRINT" 

;r 



5510 

PRINT" 

:r 


:r ^ 

5520 

PRINT" 

IV 


:r ^ 

5530 

RETURN 




5540 

PRINT" 

zr ^ 

zr ^ 

z r^ 

5550 

PRINT" 

ÏT ^ 

;r 


5560 

PRINT" 

zr 



5570 

RETURN 





5600 DATAO,0,0,0,0,0,0,0,0,0,0j0 
5610 DATAO,0,0,0,0,0,0,0,0,0,12,0 
5620 DATAO,30,0,6,63,0,15,63,48 
5630 DATA127,255,120,255,255,254 
5640 DATA255,255,255,127,255,254 
5650 DATAO,0,0,0,0,0,0,0,0 
5660 DATAO,0,0,0,0,0,0,0,0 
5670 : 

5680 DATAO,0,0,0,0,0,0,124,0 
5690 DATAI,255,0,7,255,192,15,255,224 
5700 DATA31,255,240,63,255,24B,63,255,24B 
5710 DATA63,255,248,63,255,240,63,255,248 
5720 DATA63,255,248,63,255,248,31,255,240 
5730 DATA15,255,224,7,255,192,1,255,0 
5740 DATAO,124,0,0,0,0,0,0,0 

8000 PR I NT "SMBWPja /--T- -t --r-r--r-*r--r-r--, " 

8010 PRINT"I I I I I I I I I I 

8020 PR INT" v - L -^- L - L --J-- \ -1 

8030 PRINT" MOYENNE: I I 

0040 PR INT" '-’ 

8050 PRINT"SMiWW 

8060 FORT=1T09:N(T)=1NT(RND(1> *(L*19)+1):NEXTT 

8070 PRINTTAB(1)N C1) ;TAB(5)N(2) ;TAB(9)N<3);TAB(13)N(4) ;TAB(17)N(5) ;TAB(21)N(6); 
0080 PRINTTAB(25)N(7);TAB(29)N<8);TAB(33)N(9):F0RT=1T0800:NEXTT 
8090 FQRT=1T09:TT(B)=TT(B)+N(T):NEXTT 
0095 TT(B)=INT(TT(B)/9) 

8100 PRINT">«MMM***»*>M*»M*M*»M»»»*»»to"TT (B) : F0RT=1T01500: NEXT 
8110 IFTT(B)<10THEN9000 
8150 RETURN 

9000 FQRT=1T01500:NEXT:P0KE53280,3:POKE53201,3sP0KE646,12:PÜKE53270,200 
9005 POKEV+21,0 

9010 PR I NT " GAME QVER * " : FQRT= 1TO1000 s NE X T : PR I NT " H" 

9020 CLR:RESTORE:RUN 

10000 PGKEV+21,0:FORT=1T024:SYS59626:NEXT: PRINTCHR$(147) 

10005 P0KE53280,0:P0KE53281,O 
10010 PRINT" aFELICITATIONS !!!" 

10020 PRINT":p«^OUS AVEZ REUSSI AVEC SUCCES" 

10030 PRINT">I_ES GS10 EPREUVES ÜIMPÜSEES PAR" 

10040 print m :»ce RALLYE de MOTO-CROSS. . . " 

10045 PR I NT "WHI ✓-" 

10050 PRINT" I FOULEZ-VOUS REVOIR VOS sfMOTES (0/N)?iU" 

10055 PRINT" v --'WN" :POKE 198,0 

10060 GETA$ : IF A$= " " THEN10060 
10070 IFA$="0"THEN10100 


10080 PQKE53280,0:POKE53201,0: PRINTCHR*(147): END 
10090 : 
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10100 FQRT=iT010 

10110 PRINT" 3BQSSE #fil" ; T, "3-> a8T;TT<T> 

10120 FQRX = 1T0100:NEXTX:M=M+TT <T):NEXTT 
10130 PR I NT ":«J“ ; SPC (10) "fcJOTAL: s<" ; M 
10140 PRINT":e!PfiUNE AUTRE FARTIE îi(0/N)?" 

10150 GETA$ s IFA$= " M THEN10150 
10160 IFA$="ü"THENCLR: RESTORE:RUN 
10170 IFA$= '*N"THENPRINT" 72 u : END 
10100 GOTO10150 

11000 F0RX=OTO9OSTEP2.5:POKE2040,246 
11010 Y^-ABS (SIN(W)*(1 5*tt ) )+190 
11015 P0KE2O40,245 

11020 POKEV,X:POKEV+1 , Y :W=W+.09:NEXTX 

11030 FÜRT=1T0100:P0KE53270,200+INT(RND(1) *0) :NEXT:P0KE53270,200:RETURN 
12000 P0KE53280,1 :P0KE53281,1:P0KE646,5 
12010 PRINTCHR$(14);CHR$(147) 

12020 PRINT"LE BUT DU 'EU EST DE TOTALISER UN" 

12030 PRINT":pMAXIMUM DE "OINTS, CALCULES PAR LES" 

12040 PRINT"*! HJRYS, EN EFFECTUAIT LE PLUS DE *AUTS U 
12050 PRINT"*!-EUSSIS TOUT EN REGLANT LA XITESSE" 

12060 PRINT":i!DE LA NTir AVEC LE JOYSTICK #2:" 

12070 PRINT"*! ■ «H GAUCHE = RRALENTIR 

12080 PRINT"*! ■ dO DROITE = ACCELERER 

12090 pr i nt "*üi i( m i r ,-i r/«) " 

12100 IFPEEK(56320)=111THENPRINTCHRf(142):RETURN 
12110 GOTO12100 

READY. 


COMMODORE 64 


GUERRE SOUS-MARINE 

Vous êtes encerclé, les grenades ennemies foncent sur votre 
sous-marin. Il vous faut repérer le bâtiment 
de vos adversaires afin de l'anéantir avant que ses 
agressifs projectiles ne vous détruisent ! 


READY. 




100 REM ******************* 

110 REM GUERRE SOUS-MARINE 
120 REM ******************* 

130 REM PAR DAVID & BERNARD 
140 REM ******************* 

150 REM (C) 1906 .B.&.D. 

160 REM ******************* 

170 G0T0830 -. 

180 FORI=54272 TO 54296:POKE 1,0:NEXT 

190 PQKE54272,209:P0KE54273,18:P0KE54277,136:P0KE54278,136:P0KE54 
200 PGKE54276,33:F0RB=1 TO 800:NEXT:P0KE54276,32 
210 MV=1:P=PEEK(56320):IFP=127THENMV=0 
220 IF(PAND16)=0ORLTHENGOSUB43O 

230 IF(PAND8)=OTHENAY=AY+1 :X=12: IFAY>30THENAY=AY-1 
240 IF(PAND4)=OTHENAY=AY-1 :X=10: IFAY<0THENAY=AY+1 
250 IF(PAND2)=OTHENAX=AX+40:IFAX>360THENAX=AX-40 
260 IF(PAND1)=0THENAX=AX-40:IFAX<-0OTHENAX=AX+4O 




. Aîtv : 



296,15 
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270 A=AX+AY+1424:P=PEEK <A):P0=PEEK(A+1):IFMVTHENPOKEA1,17:PGKEA1+1,17 
200 POKEA,X :POKEA+1, X + l : A1=A 
290 IFP<20RP0<2THEN730 
300 LM=LM+1: IFLM<RRTHEN340 

310 N1=N1+4Q:CO=PEEK <N1):IFNl=A0RNl=A+lTHENP0KENl-40,17sGDTQ730 
320 IFN1>A0RC0<3THEN670 
330 POKEN1—40,17:POKEN1,1 

340 IFM>VTHENPRINT"jattsMiMPlPlPTMID*(A$(TT),H,40 >; 

341 H=H+M2:IFH=H1THENM=0:H=1 
350 M=M+1:IFM=7THEN370 

360 G0T0210 

370 LM=0: N1 = 1344+AY:T=RND(1)*6+1:0NTG0T0420,410,400,390 
300 TT=RND<1)*2+1 s H=2: H1=44:M2=1 :RR-40-(LM+AY):G0T0350 
390 TT=RND(1)*2+3:H=44:Hl=2:M2=-2:RR=-(LM-AY)/2:GGT0350 

400 TT=RND(1)*2+3:H=46:Hl=2:M2=-2:T=RND<1)*37:Nl=1344+T:RR=3-(LM-T)/2:G0T035O 

410 TT=4:H=46: H1=2:M2=—1: T«=RND(1)*37:Nl=1344+T:RR=3-(LM-T):G0T0350 

420 TT=2: H°2: H 1=44: M2=l : T=RND ( 1 ) *30: N1 = 1344+T : RR=40- (L.M+T) : GO T0350 

430 L=L+1:IFL<2THENC=AtIFX=12THENC=A+1 

440 C=C-40:CO=PEEK <C>:IFCO<17THEN470 

450 POKEC+40,17: IFC< 1344THENL=<5: RETURN 

460 POKEC,14:RETURN 

470 IFCO<>OANDCO<>1THEN540 

400 PQKE54276,129:PQKE54276,128 

490 FORT=-1TO1: FORI=-1TO1:C1=PEEK(C+1+T*40) 

500 IFC1=1THENRR=99:LM=0 
510 IFC1>9ANDC1<14THENM1=1 

520 L=0:POKEC+I+T*40,(RND(1)*2)+10:NEXT:NEXT:IFM1=1THEN730 

530 FORT=-1TO1 :F0RI=-1T01:P0KEC+I+T*40,17:NEXT:NEXT:RETURN 

540 PRINT"isW«iMPMPW"MID$ <A$ (0) ,H , 40).: POKEC+40,17: P0KEC-40,32 

550 P0KE54276,129:P0KE54276,120 

560 F0RT=1T0100:NEXT 

570 POKE646,l:PRINT ,, isi«PlP4P|P4P|Pj 

580 M=0:L=0:IFC0<7THENBS=BS+1 

590 IFCO >6THENMS=MS+1 

600 IFLM<RRTHENRR=99 

610 IFMS+BS=5THENPOKE53201,7:V=20 

620 IFMS+BS=15THENP0KE53281,14:V=10 

630 IFMS+BS=3OTHENPQKE53201,10 

640 IF (MS+BS) /5=INT < (MS+BS) /5) THENF0RT=1T08: POKE1384+ (RND ( 1 ) *359) ,0: NEXT: J = l. 

650 IFJ=1THENF0RT=—1T02:FÛRI=—1TQ1:POKEA+T+I*40,17:NEXT:NEXT:J=0 
660 RETURN 

670 RR=99:ML=0:POKE54203,129:P0KE54283,128 
680 FORT=—1TO1 :F0RI=-1T01:C1=PEEK(NI+ I+T*40) 

690 IFC1=14THENL=0 

700 IFC1>9ANDC1<14THENM1=1 

710 P0KEN1+I+T*40,(RND(1)*2)+18:NEXT:NEXT:IFM1=1THEN730 
720 F0RT=-1TÛ1:F0RI=-1T01:POKEN1+I+T*40,17:NEXT:NEXT:G0TQ340 
730 POKEA,15:P0KEA+1,16e P0KE54286,0:P0KE54290,129 

740 FÛRT=230T0255STEP.15:POKE54207,255-T:P0KE53281,15ANDT:NEXT:P0KE54290,120 
750 F0RT=1T050:POKEA, (RND(1)*2)+18:P0KEA+1,(RND <1)*2)+18 
760 NEXT:P0KE53272,21 :P0KE53280,11:P0KE53281,12 

770 FRINTCHR^(147):P0KE646,0:PRINT:PRINT:PRINTSPC(7)" SCORE:... "BS"BATEAUX" 
700 PRINTSFC (0) : PRINT : PRINT" ET ,, MS" TORPILLEURS" 

790 PRINTSPC(1>:PRINT:PRINT:PRINT:PRINT:PRINT" TAPEZ UNE TOUCHE POUR CONTINUER S 
. 7. P. M 

800 POKE198,0: WAIT 190,1:1 = 1000 

010 1 = 1 + 1 :IFI>1000 THEN PRINT CHR$(147); :RUN 

820 GOTO0OO 

030 G0SUB990 

840 PRINTCHR*(147):POKE5320O,0:P0KE532B1,5 
050 P0KE53272,28:P0KE54296,15: Z Z=80000 
060 X=10:7=30:AX=360:AY=20:RR=30:H=2 
870 PRINTSPC(11)"■fl GUERRE SOUS-MARINE " 

800 A$(l)=" BCE 


70 



890 
900 
910 
920 

930 F0RT=1T04:PGKE646,7:PRINT"QQQQQÜQQQQQQQGQQQQQQQQQQQQQQQQQQQQQQQQQQ";:NEXT 
940 PRINT:PRINT 

95Û F0RT=1TQ12: P0KE646,6: PRINT ,, QQQQQQQQQQQQQQQQDQQQQQQQQQQQQQQQQ0QQQQQQ" ; : NEXI 
960 F0RT=1824T02023:POKET,17:P0KE54272+T,0:NEXT 
970 FGRT=1T015:P0KE13B4+RND<1> *359,0: NEXT 
980 PQKE1794,17:POKE1795,17s GOTO180 

990 PRINTCHR*(147):P0KE53280,0:P0KE532B1,7:P0KE646,2:A*="GUERRE SOUS-MARINE" 

1000 PRINT: PRINT: PRINT: PRINT: PRINT 

1010 F0RI«54272T054296:POKEI,0:NEXTI:P0KE54272,49:P0KE54273,28 

1020 PR INT" I- l" 

1030 PR INT" /-V 

1040 PRINT" " 

1050 PRINT" \ 

1060 PRINT" " 

1070 PRINT" 

1080 PRINT" ^ ^ " 

1090 PQKE54277,136:PQKE54278,136:P0KE54296,15:P0KE54276,33:FORT=1 TOI000 
1100 NEXTT:PQKE54276,32 

1110 A$=" "+A$:FORI=1TOLEN<A$) 

1120 PRINTMID$(A$,LEN(A$)-1 + 1,1); "TV* :F0RDD=1T030:NEXTDD:NEXTI 

1130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

1140 FGRJ=OT0500:NEXTJ:PRINT" PAR DAVID & BERNARD" 

1150 F0RI=0T058:READA:P0KE49152+I,A:NEXT:SYS49152 
1160 READT:IFT^-lTHENl180 
1170 POKE 12288+Q, T : Q«=Q+1 : GOTO 1160 

1180 PRINTCHR$(147):INPUT"VOULEZ—VOUS LES INSTRUCTIONS <0/N)";X* 

1190 IFX$="0"THEN1220 
1200 IFX$="N"THEN1290 

1210 GETX$:IFX$<>"0"0R X$ <>"N"THEN 1180 
1220 PRINTCHR*(147):P0KE532B1,0:P0KE532B0,7:PÜKE646,1 

1230 PRINT" VOUS ETES DANS UN SOUS-MARIN,ET VOUS DEVEZ SURVEILLER UNE ZONE... 
1240 PRINT"INTERDITE.MALGRES VOS AVERTISSEMENTS,DESINTRUS TENTENT DE FRANCHIR" 
1250 PRINT"VOS LIMITES. EN EFFET IL SE CACHE DANS CETTE PARTIE DES OCEANS, UN" 
1260 PRINT"IMMENSE TRESOR QUI REPOSE DEPUIT LA FIN DES TEMPS" 

1270 PRINT"VOTRE BUT EST DE PROTEGER VOTRE FORTUNE EN REPOUSSANT CES ATTAQUES" 
1280 PRINT"BONNE CHANCE A TOI... TU EN AURAS BESOIN" 

1290 PRINT:PRINT:PRINT:PRINT:PRINT" JOYSTICK PORT 2 / TAPER UNE TOUCHE SVP" 

1300 PRINT"- -" 

1310 POKE198,0: WAIT198,1 
1320 RETURN 


A$ <2> =" 
A$<3>=" 
A$<4)=" 
A*<0>=" 


FG 

BDE 

HI 

OPOP " 


1330 DATAI73,14,220,41,254,141,14,220,165,1,41,251,133,1,169 

1340 DATA48,133,252,169,208,133,254,169,0,133,251,133,253 

1350 DATA162,B,177,253,145,251,200,208,249,230,254,230,252 

1360 DATA202,208,242,165,1,9,4,133,1,173,14,220,9,1,141,14,220,96 

1370 DATA1B2,193,213,128,210,193,182,255 

1380 DATA255,159,159,159,243,243,243,255 

1390 DATAO,0,0,0,255,101,63,31 

1400 DATAO,96,112,252,255,148,255,255 

1410 DATAO,14,30,127,255,145,255,255 

1420 DATAO,O,0,0,255,166,252,248 

1430 DATAO,0,4,4,15,10,127,63 

1440 DATAO,192,196,200,208,224,255,254 

1450 DATAO,3,35,19,11,7,255,127 

1460 DATAO,0,32,32,240,80,254,252 

1470 DATA254,254,252,252,0,133,200,224 

1480 DATA255,255,127,63,0,80,3,31 

1490 DATA255,255,254,254,0,10,192,24B 

1500 DATAI27,127,63,63,0,161,11,7 

1510 DATA255,239,239,239,239,199,215,255 

1520 DATA65,41,68,175,122,189,110,219 


► 
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1530 DATA17,74,14B,125,21B,180,221,1B2 
1540 DATA255,255,255,255,255,255,255,255 
1550 DATA191,213,107,72,171,237,190,217 
1560 DATA247,174,101,125,235,189,173,222 
1570 DATA-1 

READY. 


COMMODORE 64 


POURSUITE 

Poursuivi par un individu louche qui vous veut sûrement 
du mal, votre seule issue est de sortir du cadre que lui ne 
peut franchir. Un conseil : user de ruse et de 
rapidité pour laisser sur sa faim ce personnage patibulaire. 


10 

PRINT"H"SPC 

:: 255 >" POURSUITE" 

20 

POKE 650,128 


38 

C(l) = 214. 

■ C<2> = 

215 

40 

C<3> = 216 

= C<4> = 


50 

PCd> = 50 

= PC <2 > 

= 10 

60 

PC:C3> = 1 = 

PC<4> = 

0 

70 

POKE 53280, 

2 'POKE 

53281,6 

80 

PRINTSPCC24 

2> n VOULEZ-VOUS 

90 

PRINT " LES 

REGLES 

c:û/n> m 

100 GET R$ : IF 

R$ = "" 

THEN 1 

110 IF R$ = "0 

1 THEN G 

OS UE: 590 


Commentaire : 

Pour vous déplacer, utilisez les touches ZKMX, 


120 XM = 39 : VM = 24 
130 XJ = 0 : ._.VJ = 0 
140 FF = 1 : PT = 0 
150 FOR T=54272 TO 54296 
160 POKE T.. 0 
170 NEXT T 
18© POKE 54277,192 
190 POKE 54296,15 
200 POKE 54276,17 
210 REM 
220 REM 
230 PRINT"H" 

240 FOR X=1 TÜ 5© 

250 FOR V=1 TO 4 

260 Q = INT<RNO<1>#1000> 

270 POKE 55296+Q,X+V 
2S0 POKE 1024+Q,C<V> 

230 NEXT V 

300 NEXT X 

310 REM LE MONSTRE 

320 POKE 56295,0 

330 POKE 2023,28 

340 MM = 999 

350 REM VOUS 

360 POKE 55296,0 

370 POKE 1024,0 

380 FOR T=1 TO 1000 :NEXT T 

390 TI$ = "000000" 
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400 GOSUB 840 : REM MOUVEMENT "W 
410 GOSUB 970= REM MOUVEMENT 
420 REM 

430 POKE 54276,16 
440 REM POINTS 
450 FOR T=1 TO 3 

460 IF PEEK<1024+JJ> = C<T> THEN GOSUB 530 
47G NEXT T 
480 REM 

49G POKE 55296+JJ,1 
5G0 POKE 1024+JJ, 0 

51© IF MID$<TI$,6, O < "3" THEN GOSUB 840 

520 GOTO 400 

530 REM PTS 

540 PC = PC + PC •' T > 

550 POKE 54276,17 
560 POKE 54272,PC<T> 

570 POKE 54273,100—PC<T> 

580 RETURN 

590 REM REGLE DU JEU 

600 PRINT "73 VOUS ETES POURSUIVIT PAR".; 


REflOV. 

610 PRINT " UN INDIVIDU <";CHR$ C92 >;">" 

620 PRINTSPC<80V QUI HEUREUSEMENT EST*'.: 

630 PR INT 11 PRISONNIER DU CADRE, VOUS NON" 

640 PF' I NTSPC < 80 > " CELA EST VOTRE SEULE ISSUE"; 

650 PRINT" POUR LUI ECHAPPER" 

660 PR INTSPC < 80> " VOUS< " CHR$ < 64 >;" * VOUS DEPLACE " : 

676 PRINT " AU MOYEN DES TOUCHES" 

680 PRINT" K 

690 F'RINT" t 

700 PR INT" Z<—I—>X " 

710 PRINT" I 

720 F'RINT" M 

730 F'RINT "APPUYER SUR UNE TOUCHE POUR POURSUIVRE" 

740 GET R$ = IF R$ = "" THEN 740 
750 PR I NT" 73" SPC < 40 > 

760 F'RINT" VOTRE SCORE AUGMENTERA SUIVANT" 

770 PRINT" LES VALEURS DE 5 " 

788 PRINTSPC<42>CHR*<C<1>)," 50 POINT" 

790 F’R I NTSPC< 42 > CHR$ < C < 2 > > , " 10 PO INTS " 

800 PRINTSPC<42>CHR$CC<3)>," 1 POINTS" 

810 PRINTSPC<80>"APPUYER SUR UNE TOUCHE POUR POURSUIVRE" 

820 GET R$ : IF R$ = "" THEN 820 

830 RETURN 

840 POKE 1024+MM,32 

850 REM 

860 IF XM < XJ THEN XM = XM + FF +<XM+FF>39> 

870 IF XM > XJ THEN XM = XM - FF + <XM-FF<1> 

880 IF YM > YJ THEN YM = YM - FF + <YM-FF<1> 

896 IF YM < VJ THEN YM = YM + FF + <YM+FF>24> 

900 MM = XM + 40*YM 

910 IF MM > 999 THEN MM = 999 

920 IF MM < 0 THEN MM = 0 

930 IF PEEK<1024+MM> = 0 THEN 1080 

940 POKE 55296+MM,0 

950 POKE 1024+MM,28 
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960 RETURN 




97G REM 




930 PÛKË 1024+J J ,32 




990 GET“R$ 




1 000 

IF R$ = "Z" THEN XJ = XJ - 1 

IF XJ < 0 THEN XJ =■ 39 

GOTO 

1050 

1010 

IF RJ = "X" THEN XJ = XJ + 1 

IF XJ > 39 THEN XJ = 0 



1020 

IF RS = "K" THEN VJ = VJ - 1 

IF VJ < O THEN VJ = 24 

GOTO 

1 050 

1 030 

IF R$ = "M" THEN VJ = VJ + 1 

IF VJ > 24 THEN VJ = G 



1040 

JJ = VJ* 40 + XJ 




1050 

REM 




1 060 

1F VAL<MID$<TI$,4,1>> = 3 THEN 

1080 



1070 

RETURN 




1030 

REM ** 




1 090 

POKE 54278,13 




1 100 

POKE 54276,17 




1110 

POKE 54272,2 




1120 

POKE 54273,2 




1130 

FOR T=1 TO 200 : NEXT T * 




1140 

POKE 54276,128 




1150 

POKE 54273,2 




1160 

PRINTLA PARTIE EST TERMINE 

i 



1 170 

PRINTSPC<40 >" SCORE" 

. PC 



1130 

IF P0 < PC THEN P0 = PC 




1190 

PRINTSPC <. 40> " MEILLEURE SCORE" 

. PO 



1200 

PRINTSPC<40>" UNE AUTRE PARTIE 

•: oxn 



R EADS 

r'. 




1210 

GET R$ = IF R S ="" THEN 1210 




1220 

IF RS = "0" THEN PC = O = GOTO 

120 



1230 

IF RS <> "N" THEN 1210 




1240 

PRINT" AU REVOIR" 




1250 

FOR T=54272 TO 54296 




1260 

POKE T,0 • NEXT T 




1270 

END 




READV. 





COMMODORE 64 


LE PALAIS DES HACHES 

Ce ne sont pas des serpents sifflant sur vos têtes mais, 
dans ce palais aux nombreuses salles, des haches menaçantes 
qui se balancent au-dessus de vous. Essayez, en un temps 
record, de parcourir le maximum de salles sans vous blesser... 


10 PRINT "S VISITEZ CHAQUE SALLE DU" 

20 PR INT "S PALAIS DES HACHES " 

30 PRINT "M SANS VOUS FAIRE BLESSER PAR” 

40 PRINT “B DES HACHES QUI SE BALANCENT " 

50 PRINT"M AU DESSUS DE VOS TETES" 

60 PRINT "MW ATTEIGNEZ LE NUMERO DES SALLES ' 





70 PRINT "M nu MOVEN DES TOUCHES : " 

30 PRINT "WW >. POUR ALLER fl DROITE" 

30 PRINT "M C, POUR ALLER fl GAUCHE" 

100 PRINT "M ET DE LA BARRE ESPACE 
110 PRINT "H POUR CHANGER DE DIRECTION " 
120 PRINT " DE HAUT EN BAS" 

130 FOR T=1 TO 500© = NEXT T 

140 DX = © : DV = 3 w 

150 DI = 2 : D2 = -2 

160 NI = O : N2 = 1 

170 XI = 50 ’• X2 = 200 

ISO XX = 125 : VV = 125 

190 DIM TÛ<6,2> 

200 TD< Ll> = 1 : TOC1,2> = -1 
210 TD<2,1> = -2 • TD<2,2> = 1 
22© TDC3,1> = 1 : TD<3,2> = -1 

230 T0<4,n = 1 * TD<4,2> = 1 

240 TDC5>1> « -2 = TD<5,2> = -2 
250 TD<6, l'> = 1 5 TD<6,2> = 1 
260 REM 

270 DIM TC<6,2> 

230 TC<1, 1 > = 50 : TC<1,2> = 50 

29Ô TC<2,1> = 125 •• TC<2,2> = 200 

300 TC<3,1> = 200 : TC<3,2> = 50 

310 TC<4,1> = 50 = TC<4,2> = 200 

320 TC <5, 1 > = 125 : T C < 5, 2 > = 

330 TC < 6 , 1 > = 200 • TC < 6 .• 2> = 

340 POKE 54277,102 
350 POKE 54273,123 
360 POKE 54276,17 
370 POKE 54272,233 
330 POKE 54296,15 
390 N2 = 1 
400 V = 53243 
410 POKE V+30,0 
420 POKE V+40,4 
430 POKE V+41,8 
440 POKE V+42,6 
45© POKE V+43,0 
460 POKE 2040,13 
470 POKE 2041,14 
430 POKE 2042,14 
490 POKE 2043,15 
500 FOR 1=332 TO 394 
510 READ Q 
520 POKE I,Q 
530 NEXT I 

540 FOR 1=396 TO 953 
550 REflD Q 
560 POKE I,Q 
570 NEXT I 

530 FOR 1=960 TO 1022 
590 REflD Q 
600 POKE I,Q 


READV- 

610 NEXT I 
620 GOSUB 1720 
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630 PR INT "SS" TAB<27) "N0 DES S FILLES" 

640 PRINT TfiB<30> " VISITEES" 

650 REM 

660 F’OKE V+21,31 
670 PÛKE 53231,0 
630 REM 
690 POKE V,XE 

700 POKE V+1,VE 
710 POKE V+2,XI 
720 POKE V+3,100 
730 POKE V+4,X2 
740 POKE V+5,150 
750 POKE V+6.-XX 
760 POKE V+7,VV 
770 TI$ = "000000" 

7S0 GOTO 1120 

790 POKE 54273,30—VAL < M10$ < TI $, 6, 1 > > 

800 IF PEEK<203) = 64 THEN 370 
310 POKE V+23,VAL<MID$<TI$,5,1)) 

320 IF PEEK<203> = 47 THEN DX = DX-1 GOTO 870 
330 POKE V+29,VAL<MID$<TI$,5,1)) 

340 IF PEEK<203) = 44 THEN OX = OX+1 GOTO 370 

350 IF PEEK<203) = 60 THEN DV = -DV 
360 POKE 54273,72 
370 REM 

380 XX = XX + OX 

390 VV = W + DV 

900 POKE V+6,XX 

910 POKE V+7,VV 

92G IF XX C 5© THEN XX = 50 

930 IF XX > 200 THEN XX = 200 

940 IF VV < 50 THEN VV = 50 

950 IF VV > 200 THEN VV = 200 

96G IF XX = TC<1,1) ftND VV = TC<1,2)THEN SS = 1 * GÛSUB 1350 

970 IF XX = TC<2,1) AND VV = TC<2,2)THEN SS = 2 GOSUB 1350 

980 IF XX = TC<3, 1 ) AND VV = TCO, 2)THEN SS = 3 GÛSUB 1350. 

990 IF XX = TC<4,1) AND VV = TC<4,2)THEN SS = 4 = GÛSUB 1350 

1000 IF XX = TC<5,1> AND VV = TC<5,2)THEN SS = 5 « GÛSUB 1350 

1010 IF XX = TC<6,1) AND VV = TC<6,2)THEN SS = 6 : GÛSUB 1350 

1020 PP = PEEK<V+30) 

1030 IF PP = 0 THEN 1110 

1040 IF PP = 3 THEN 1110 

1050 IF PP = 5 THEN 1110 

1060 POKE V+6,125 
1070 POKE V+7,125 
1030 XX = 125 
1090 VV =125 

1100 POKE 54273,30+VAL<MID$$,5,2)) 

1110 REM 
1120 REM 

1130 XE = XE + EX 
1140 VE = VE + EV 

1150 IF VE > 50 AND VE < 200 THEN 1250 
1160 REM 

1170 NI = NI + 1 

1130 N2 = N2 + 1 

1190 IF H2 > 6 THEN N2 = 1 

1200 IF NI > 6 THEN NI = 1 


READV. 
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1210 EX = <TC<N2* 1> - TCCH1, 1> > / 75 
1226 EV = <TC<N2,2> - TC<N1,2>> / 75 
1230 XE = TC<N1,1> 

1240 VE = TCCNl, 2> 

1250 POKE V,XE 
1266 POKE V+1,VE 
1270 REM 

1280 xi = XI + DI 

1290 IF XI < 50 OR XI > 200 THEN DI = -DI 
1380 X2 = X2 + D2 

131Ô IF X2 < 50 OR X2 > 200 THEN D2 = -02 

1320 POKE V+2,X1 

1330 POKE V+4,X2 

1340 GOTO 790 

1350 REM 

1360 IF SJ<SS> = 1 THEN RETURN 

1370 FOR T=1 TO 100 STEP 2 

13S0 POKE 54273,10+T 

139© NEXT T 

1400 SJ<SS> = 1 

1410 SJ = SJ + 1 

1420 PRINTTRB < 30 > * SS 

1430 IF SJ < 6 THEN RETURN 

1440 PRINT 

1450 PRINT " VOUS AVEZ VISITEZ" 

1460 PRINT " TOUT LE PALAIS" 

1470 PRINT" EN ";MID$<TI$,3,2>;" MINUTES" 
14S0 PRINT" ET ";MID*<TI$,5,2>;" SECONDES" 
1490 DX = 0 
1500 DV = 0 
1510 RETURN 

1520 DATA 8,43,64,13,51,192,31,255,224 
1530 DATA 31,255,224,63,255,240,31,255 
1540 DATA 224,31,255,224,13,51,192,8 
1550 DATA 48,64,0,43,0,0,43,0,0,48,0 
1560 DATA 0,43,0,0,48,0,0,43,0,0,48,0 
1570 DATA 0,48,0,0,48,0,0,56,0,0,56,0 
1580 DATA 254,16,254 

1590 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1600 DATA 63,0,0,30,0,0,127,255, 255, 127 
1610 DATA 255,255,30,0,62,63,0,0,63,0,0 
1620 DATA 127,128,0,127,123,0,255,192,8 
1630 DATA 255,192,0,63,0,0,8,0,0,0,0,0 
1648 DATA 0,0,0,128,0,128 
1650 DATA 0,0,0,0,0,0,0,224,0,0,224,0 
1660 DATA 0,240,0,0,255,128,0,255,192 
1670 DATA 1,255,224,15,255,254,31,255 
1680 DATA 255,31,255,255,31,255,255 
1690 DATA 15,255,254,0,255,224,0,127 
1700 DATA 192,0,63,192,0,3,192,0,3 
1710 DATA 123,0,3,128,0,0,0,0,0,0 
1720 PR INT "ITT' ; 


1730 

PRINT " 

i - 


i -1— 

-i 11 

1740 

PR INT " 

1 1. 

l 

5. 1 

, 3 1 " 

1750 

FOR l'\- 1 

TO 

9 



1760 

PRINT " 

} 



1 ,! 

1770 

NEXT W 





1730 

PRINT " 

h- 



— 1 " 

1790 

FOR U—1 

Tû 

9 



1 800 

PRINT " 

1 



1 " 
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READY. 


1*310 NEXT W 
132© PRINT 1 
1330 PRINT 
1340 RETURN 


. 61 " 


REFIDY. 


COMMODORE 64 


CHAMP MAGNETIQUE 

Un coin de paradis vous attend de l'autre côté de l'écran 
mais, pour votre malheur, vos chaussures à semelles de plomb 
sont attirées par les aimants qui jalonnent le champ que vous 
devez parcourir pour atteindre l'eden. Le temps vous 
est compté et plus il passe plus la traversée est difficile. 


10 PRINT" ZT* ; SPC<7 >;"m CHAMP MAONETIQUE " 

20 PR IHTSPC < 42 > " VOUS DEVEZ TRAVERSER UN CHAMP".; 
30 PRINT " QUI EST ENVAHI D"AIMANTS" 

4© PRINT " VOUS, BOUT DE FERRAILLE,".: 

50 PRINT " VOUS AVEZ UNE AIMANTATION"; 

60 PRINT " QUI EST VISUALISEE" 

70 PRINT " EN BAS ET R DROITE DE L'ECRAN" 

30 PRINTSPC<40>"ATTENTION VOUS ETES REPOUSSE"; 
90 PRINT " PAR LA MEME AIMANTATION QUE VOUS" 

100 PRINT " ET ELLE VOUS CHANGE LE SENS"; 

110 PRINT " DE VOTRE AIMANTATION" 

120 PRINTSPC< 40 ^" NE TARDEZ PAS TROP"; 

130 PRINT " CAR DES ONDES DE BARRAGE "; 

140 PRINT "SE CEENT LORS DE VOS ERREURS 
150 PRINTSPC <40 >" DEPLACEMENTS=" 

160 PRINT," Z À GAUCHE " 

170 PRINT," X A DROITE " 

ISO PRINT," K EN HAUT " ^ 

190 PRINT," M EN BAS " T' 

200 PR INTSPCC 82 V APPUYER SUR UNE TOUCHE"; 

210 PRINT " POUR DEBUTER" 

220 GE T RS = IF RS = "" THEN 220 

230 PRINT"n" ,’SPC<7>; "#i* CHAMP MAGNETIQUE 

270 FOR B=54272 TÜ 54296 

310 B<0> = 32 

320 B<1> = 67 = B<2; = 32 

330 POKE 650, 12*3 

340 POKE 53230,1=POKE 53231,G 







E &'.y'-*?." 




= 32 
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350 RESTORE 

36Ü TR = TR + 1 

370 PR I NT " a" SPC <33> "NO. = M TR 

330 GOSUB 1030 

390 GOSUB 1410 

400 P = 1106 = XV = P 

410 POKE P,127 

420 TI* = "000000" 

430 PR INT” a ■■■I' 1 ; 

440 PRINT VflL<MID*<TI*.5.2>> 

450 GET R* = IF R* <> " " THEN 490 

460 FOR T=1 TÜ 50 :NEXT T 

470 IF VRL<MIDf<TI*,4, 1>> = 1 THEN 1.010 

430 GOTO 530 

490 IF R* = "X" THEN OX = 1 

500 IF R* = "M" THEN OX = 40 

510 IF R* = "Z" THEN DX = -1 

520 IF R* = "K" THEN DX = -40 

530 XV = P + OX 

540 IF XV = 1941 THEN 370 

550 IF PEEK(XV> O 32 THEN 600 

560 POKE P-32 

578 P = XV 

530 POKE FM 27 

590 GOTO 430 

600 REM BORD OU AIMANT 


REAOV. 


610 IF PEEK < XV> O 36 THEN 660 : REM "X" 

620 POKE P,32 

630 P = XV + OX 

640 POKE P,127 

650 GOTO 430 

660 IF PEEK<XV> =31 THEN 630 ; REM "Ci" 

670 IF PEEK<XV> O 37 THEN 710=REM 

630 IF PEEK<XV> O PEEK<2023> THEN 360 

690 V = 31 - •' 37>PEEK < 2023 > > #6 

700 POKE 2023.V 

710 XV = P 

720 POKE P. 126 

730 XV = XV - DX 

?40 IF PEEK<XV> 032 THEN 360 

750 POKE 54272.PEEK<XV> 

760 POKE 54273.PEEK<XV> 

770 POKE 54276.9 

730 POKE P.32 

790 P = XV 

300 POKE P.127 

310 I = INT<RNDO> * 3> 

320 B = B - 1 
330 POKE B. B C I > 

340 POKE 54276.16 
350 GOTO 710 

360 IF XV O 1941 THEN 430 

370 REM TERMINE 

830 FOR T=1 TO 10 

390 POKE 54272.30 

900 POKE 54273.15 

910 POKE 54276.9 

920 POKE 1941.127 

930 POKE 1941.255 

940 NEXT T 


950 POKE 54273.255 
960 POKE 54276.16 

970 PRINT " ENCORE UNE TRAVERSER CO/N> 
930 GET R* : IF R* = "0" THEN 340 
990 IF R* O "N" THEN 930 
1O00 END 

1010 PRINT " S LE TEMPS EST ECOULE " 
1020 END 

1030 DI = 54272 * Cfl<1> = 0 
1040 FOR X=1 Tü S 
1050 READ CR<X> 

1060 NEXT X 
1070 READ AO 
1080 READ XL 
1090 READ VL 
1100 GOSUB 1190 
.1110 POKE 1941.207 
1120 POKE 53280.1 
1130 POKE 53231.1 
1140 POKE 54276.8 
1150 POKE 54296.15 
1160 POKE 54277.203 
1170 POKE 54273.90 
1130 RETURN 
1190 REM 
1200 D = AD + 1 


REAOV. 


1210 F = D + XL—2 

1220 SI = 1 

1230 CA = 1 

1240 GOSUB 1610 

1250 D = F + 41 

1260 F = D + <VL-2>*40 

1270 SI = 40 

1230 CA = 3 

1296 GOSUB 1610 

1300 D = F + 39 

1310 F = D - XL+2 

1320 SI = -1 

1330 Cft = 5 

1340 GOSUB 1610 

1350 D = F - 41 

1360 F = D - <VL—2>#40 

1370 SI = -40 

1380 Cfl = 7 

1390 GOSUB 1610 

1400 RETURN 

1410 DX = 1 

1420 FOR Z=1 TO 5 

1430 GOSUB 1530 

1440 NEXTZ 

1450 DX = 40 

1460 FOR Z=1 TÜ 5 

1470 GOSUB 1530: NEXTZ 

1430 POKE 1941.32 

1490 POKE 1940.32 

1500 POKE 1901.32 

1510 POKE 1900.32 

1520 RETURN 

1530 X = INT <RND <1> #34 > + 4 
1540 V = INT<RND <1> #18 > + 4 
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1550 I = X NT <' RND < 1 ') *2 ; + 1 
1560 XV = 1024 + Y*40 + X 
1570 POKE XV,86 
1580 POKE XV+DX, H< I ; 

1590 POKE XV—DX, A < I +1 ; 

1600 RETURN 

1610 FOR XV = O TO F STEP SI 

1620 IF XV < 1024 OR XV > 2023 THEN 1630 

1630 POKE XV + 01,CO 


1640 POKE XV,CR<CFO 
1650 HEXT XV 
1660 POKE XV + DI,CO 
1670 POKE XV, CFKCR+1> 

1680 RETURN 

1690 DRTR 67,110,93,125,67,109,93,112 
1700 DRTR 1065,37,22 

RERDV. 


COMMODORE 64 


LES CHAMPS 

Une histoire bucolique où un intrus s'amuse 
à ravager votre champ de maïs. Il ne partira que quand il 
aura ramassé.son trèfle... Aidez-le dans 
sa tâche, vous protégerez en même temps votre récolte... 


10 PRINT"TFQIJR VOUS DEPLRCER ET EMPECHER L " INTRUS" 
28 PRINT"W DE RRVfiGER VOTRE CHAMP DE MAIS " 

30 PRINT"UTILISEZ LES TOUCHES 


40 FOR T=1 TO 3000 * HEXT T 
50 PR INT'LT LES CHAMPS " 

60 POKE 53281,9 
70 POKE 650,123 
80 IN = 1 

90 PE = 1744 AC= 55296-1024 
100 F' = 0 
110 PX - PE 

120 PI = 1024 + 100 : RI = F'I 
130 TR = -4 
140 GOSIJB 580 
150 REM 

160 F0F-! X=1065 TO 1703 STEP 7 

17G TR = TR + 1 

180 POKE X+AC,5 * POKE X,88 

190 POKE X+1,32* * POKE X+2,32 

200 HEXT X 

210 REM 

220 GOSIJB 670 

230 IF MA C 20 THEH 220 

240 REM POSE DE LA CLOTURE 

250 GOSUB 730 

260 REM 

270 GET R* 

280 IF R$ = THEN 420 

290 IF INTCT1/100; = TT THEN 320 

300 TT = INT<TI/10G; 

310 GOSIJB 670 

320 IF R$ = "M" THEH DX = 1 
330 IF RS = "N" THEN DX = -1 
340 POKE PX,32 = POKE PX+1,32 
350 POKE PX+2,32 = POKE PX+3,32 
360 P = P + DX -+• C(P + DX >36; — 
370 PX = PE + P 


MET -N-' 
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380 POKE PX+flC j 0 = POKE PX+l+AC,© 

396 POKE PX+2+AC,0 
400 POKE PX,65 = POKE PX+1,90 
41G POKE PX+2 * 65 = POKE PX+3,111 
420 REM 

430 X = INTCRND<l>*5-2> 

440 V = IN 

450 RI = PI + CV*40 + X> 

460 IF TR « 0 THEN 780 

470 IF RI < 1024 THEN RI = RI + 80 » IN = +1 

48© IF RI > 2023 THEN RI = RI - 80 « IN = -1 

490 IF RI=PX OR RI=PX+1 THEN IN = -1 «GOTO 260. 

500 IF RI=PX+2 OR RI=PX+3 THEN IN = -1 =GOTO 260 
510 IF PEEK CRI > = 87 THEN Mfl = MR -1 

520 IF PEEK CRI > = 83 THEN TR = TR -1. 

530 IF PEEK CRI> = 107 OR PEEK CRI> = 115 THEN 420 
540 POKE P1,32 
550 PI = RI 

560 POKE PI + RC, 1 •• POKE P 1,94 

570 GOTO 260 

530 REM 

590 RE = 1024 

600 DX = 1 : S0 = 0 


RERDV. 

610 FE = 2023 FC = 56295 
620 FOR X—PE TO PE + 33 STEP 3 
630 POKE X+fiC,15 
640 NEXT X 

650 TT = INT CTI / 10ü> 

668 RETURN 
670 REM 

680 Z = INTC C2023—PE—40>#RNÛC1> > + PE+40 

690 IF F'EEKCZ> = 37 THEN 720 

700 POKE Z+fiC,7 « POKE Z,37 

710 MR = Mfl + 1 

720 RETURN 

730 FOR X=1024 TO 1934 STEP 40 

740 POKE X+flC,0 = POKE X,107 

750 POKE X+fiC+39,0 « POKE X+39,115 

760 NEXT X 

770 RETLIRN 

730 REM 

790 PRINT"n L"INTRUS VOUS fl MANGE TOUT LE TREFLE" 
800 PRINT" MAIS VOTRE CHAMP DE MAIS" 

810 PRINT" fl UN TAUX DE GERMINATION " 

820 PRINT " ACTUEL DE ";Mfl/20;"X" 

830 END 

840 IF S0 > SC THEN S0 = SC 

350 PRINT "W DESIREZ-VOUS RECOMMENCER"; 

860 PRINT "CAR IL RODE TOUJOURS- CO/NV 
870 GET R$ 

880 IF R$ = "O" THEN 80 

896 IF R* O "N" THEN 870 

900 PRINT"H BON POP CORN " 


RERDV. 
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COMMODORE 64 


NIGHT MISSION 

En face de vous, un char et un avion. Votre 
mission : les détruire l'un et l'autre. Un conseil, ne pas 
perdre la tête et jouir de réflexes à 
toute épreuve, car ils se défendent avec acharnement... 


READY. 


* | | 
—-, I l 
■—% I I 

I II 

-— > 


I I I I 
Mil I I I I 
INI I I I I 

I ^ I I I I I 
-„•* 


20 POKE5320O,3:POKE53201,3:P0KE646,5 
30 V=53248:PGKEV+16,0:PQKEV+21,£ 

40 PRINTCHR$(147);CHR$ <142);CMR$<0> 

45 PRINT" O" 

50 PRINT" n-i *i r r s t ~i r m 

60 PRINT" l H-H h—' I I I I -s K—I I 
70 PRINT" J- ^ _j t -l 

72 PRINT" =1 ^ 

75 PRINT" ^ ^ 

80 PRINT M «^ ^ ✓ -s ✓—% /—-, 

90 PRINT" I w I II I ' I * Il I ^ I I I 

92 PRINT" l i—-î I M I ^ I , Il I I I I I I I I 

95 PRINT"3l I II II '—si *^1 II INI INI 

96 PRINT" Il II II s-s\ r^\ Il I I INI 

9B PRINT" Il •-’ ^ ^^ ^ ^^ ^ 

100 PRINT"II 

105 PRINT"Il I 

100 PRINT"II I 

110 PRINT" I *- 

120 PRINT" v --, 

130 PRINT" I 

140 PRINT" I 

150 PRINT" 

155 : 

160 REM PRESENTATION 
165 : 

170 REM CHRGT DES SPRITES 

175 : X. 

180 FORN=OT062:READO:P0KE245*64+N,Q:NEXT ° ' 
190 F0RN=0TQ62:READQ:PQKE246*64+N,Q:NEXT 
200 FQRN-0T062: READQ: PGKE247*64+N,Q: NEXT 
210 F0RN=0T062:READQ:PGKE248*64+N,Q:NEXT 
220 F0RN=0T062:READQ:P0KE249*64+N,Q:NEXT S 

230 F0RN=0T062:READQ:P0KE250*64+N,Q:NEXT 
235 FQRN=0TG62:P0KE251*64+N,0:NEXT i B 

238 : 

240 REM DATAS AVION >•>-•/■ 

250 DATAO,0,0,0,0,O,0,0,0,0,0,0,0,0,O 

260 DATAO,0,1,0,0,3,0,4,7,0,12,15 

270 DATA28,28,31,62,60,63,231,255,255 

280 DATA255,51,63,63,255,255,20,0,0 

290 DATAO,O,0,0,O,O,0,0,O,0,0,O,O,O,O,O,0,0 

300 : 

310 REM DATAS TANK 

320 DATAO,O,0,0,0,0,0,0,0,0,0,0 

330 DATAO,0,3,0,0,6,0,0,12,0,128,24 

340 DATAO,128,40,0,128,96,0,156,192,3,255,120 


// 







É 



WOk**** 

Si 

’> v>: 


u- 

£ 

HP 


i o 

j p 

/ 


'“—J. 
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350 

DATA7,227,128,15,255,192,15,255,192 


360 

DATA3,254,0,63,255,252,64,0,2,156,231,57 


370 

DATA64,0,2,63,255,252 


380 

• 

• 


390 

REM DATAS BOULET 


400 

DATA112,0,0,248,0,0,248,0,0,112,0,0 


410 

DATAO,0,0,0,0,0,0,0,0,0 


420 

DATAO,0,0,0,0,0,0,0,0,0 


430 

DATAO,0,0,0,0,0,0,0,0,0 


440 

DATAO,0,0,0,0,0,0,0,0,0 


450 

DATAO,0,0,0,0,0,0,0,0,0,0 


460 

3 


470 

REM DATAS HELICO 


480 

DATAO,0,0,0,0,0,0,2,0 


490 

DATA7,255,255,0,2,0,120,2,0 


500 

DATA192,15,120,224,63,252,255,245,198 


510 

DATA3,250,255,0,29,127,0,7,252 


520 

DATAO,0,0,0,0,0,0,0,0 


530 

DATAO,0,0,0,0,0,0,0,0 


540 

DATAO,0,0,0,0,0,0,0,0 


550 

; 


560 

REM DATAS NUAGE 


570 

DATAO,0,0,0,0,0,0,0,0,0,0,0 


580 

DATAO,0,0,0,0,0,0,0,0,0,12,0 


590 

DATAO,30,0,6,63,0,15,63,48 


600 

DATA127,255,120,255,255,254 


610 

DATA255,255,255,127,255,254 


620 

DATAO,0,0,0,0,0,0,0,0 


630 

DATAO,0,0,0,0,0,0,0,0 


640 

• 


650 

REM DATAS LUNE 


660 

DATAO,0,0,0,0,0,0,124,0 


670 

DATAI,255,0,7,255,192,15,255,224 


680 

DATA31,248,40,63,240,0,63,224,0 


690 

DATA63,192,0,63,192,0,63,192,0 


700 

DATA63,224,0,63,240,0,31,248,48 


710 

DATA15,255,224,7,255,192,1,255,0 


720 

DATAO,124,0,0,0,0,0,0,0 


730 

• 


740 

PRINTCHR$ <147);PGKE5320O,OsPOKE53201,0 


750 

F0RT=1T030:P0KE1104+INT(RND(1)*000),46sNEXTT 

: REM ETOILES AU HASARD 

760 

F0RT=1944T01983: POKET,160s POKET+54272,9:NEXT 


770 

REM SOL 


772 

PR I NT " 


773 

print" sr -m s vr ^ 


774 

print" zw vr rr 


775 

pr int" vr ^ 


780 

■ 

• 


790 

REM INITIALISATION DES SPRITES 


800 

REM COULEUR 


810 

POKEV+39,1 s P0KEV+40,11:PQKEV+41,7 


020 

POKEV+42,14:POKEV+43,1 :POKEV+44,7 


825 

POKEV+45,14 


830 

REM EMPLACEMENT 


840 

POKEV,220:POKEV+1,140 : REM AVION 


850 

POKEV+2,0:POKEV+3,213 : REM TANK 


860 

POKEV+4,0:POKEV+5,225 : REM BALLE 


870 

P0KEV+6,0 : REM HELICO 


080 

POKEV+8,85:PQKEV+9,145 : REM NUAGE 


890 

POKEV+10,255:PQKEV+11,170:REM LUNE 


092 

POKEV+12,170:POKEV+13,152:REM LASER 


895 

REM IMAGE DESIGNEE 


890 

F0RT=0T06:P0KE2040+T,245+Tc NEXT 


899 

POKEV+21,63:POKEV+29,80 




900 REM BOUCLE PRINCIPALE 

990 P0KEV+7, I NT (RND(1)*100) + 100:CC=PEEK(V+7):P0KEV+30,0 
995 FORC=OTG255STEP0 
1000 D=PEEK(56320) 

1010 IFD=126 THEN Y=Y-3 
1020 IFD=125 THEN Y=Y+3 

1025 IFD=111 THEN POKEV+21,127:GOTO1030 

1020 POKEV+21,63 

1030 IFY>200 THEN Y=200 

1040 IFY<70 THEN Y«=70 

1050 POKEV+l,Y:CC-CC—1 :IFCC<0THENC=0 

1060 A=A+5: IFA >240THENA=0 s POkEV+5,225:AN=INT(RND<1)*5 > +1 

1070 PGKEV+2,A s REM TANK 

1000 B=B+5:IFB>240THENB=0:JK=INT(RND(1)*220)+30 

1090 POKEV+4,B+10 : REM BALLE 

1092 POKEV+13,Y+12: CO=PEEK ( V+30 ) 

1094 IFCÜ= : 90RC0= 5 15THENFÜRT=1T0255: P0KE53270, T : NEXT : P0KE53270,200: GOTO 1400 

1095 IFB>JK THEN POKEV+5,PEEK(V+5)-AN 

1090 I FCO=50RCO= 11 THENFORT= 1TO t-50 s POKE53201,T: NEX TT: GOTO 1400 
1100 S=S+0:PRINT"isl«CORE: ";S 

1102 IFCO=72ORCO=70THENFORT-1T020s POKEV+42,0:POKEV+42,14:NEXTT:S=S+500:G0T0990 
1105 POKE16064,RND(1)*255ïPOKEl6065,RND(1)*255:P0KE16066,RND(1)*255 : REM LASER 
1110 POKEV+6, C:PQKEV+7, CC : REM HELICO 

1120 NEXTCïPÛKEV+6,0sG0T0990 
1400 F0RT=1T024:SYS59626:NEXT 

1500 POKEV+21,0:PRINTCHR*< 147) SPRINTGAME OVER *" 
1510 FORT =1T02000:NEXT:FORT=1T024:SYS59626:NEXT:CLR:RESTORE:RUN 

READY. 


READY. 


COMMODORE 64 


TARZAN 


Jane est très séduisante, les colliers lui vont à ravir. Pour 
trouver grâce à ses yeux, vous vous transformez en pêcheur 
de perles. L'océan n'a plus de secret pour vous mais attention 
à ne pas manquer d'air ! Et au requin affamé qui rôde... 


READY. 


5 REM TARZAN 

10 P0KE53269,0:REM ETEINDRE SPRITES 
20 PQKE650,120:V=53240 : REM REGISTRE 

25 nnci imnAn 

30 
40 

50 PRINT "VF 
60 PR INT" Il 
70 PR INT" Si 
00 PR INT" S? 

90 PR INT "J* 

92 PRINT"^a 


P0KE65O,120:V=53240 : REM REGISTRE 
GOSUB2000 

POKE5320O,14:POKE53201,14:P0KE646,1 
PR INTCHRS(147);CHR*(142);CHR$(0) 

PR I NT " ZW /—-t— % --s r — % r'-/- 



/ 


1 I 
I I 


I I 


I 1 


L " 


r NPj 









-, K— ' I I H-s 


I h—’ 


93 PR INT*’ r ,-sn rr, r~% 

94 PR INT" I P~H h-H ^s —•. K—' I I HK II I—‘ 

95 PR INT" «-* L w■ w w l i.—• w 

96 PR INT" 5| i—r-. -, 

97 PR INT" h—' P—* H-s I h—' w -. 

90 PR INT" -»• w **- ‘— 1 

100 PRINT"ïrT!" 

105 PRINT'V / S N/ 

110 PRINT"^ S/ 

115 PR INT" I Ns S / / n./ 

120 PR INT" N/ / /X/ \ 

125 PR INT" n^x/ / 

130 PR INT" \/ SKI /fl x/- 

135 PR INT" I I 

136 P0KE56175,0:P0KE56215,8 

130 PR INT"»! . ... . 

139 PRINT M ari ... 

140 F0RT=1944T02023:POKET,160:POKET+54272,0:NEXT 
142 REM CHARGEMENT DES SPRITES * 

150 F0RN=0T062:READQ:P0KE245*64+N,Q:NEXT 

160 F0RN=0T062:READQ:P0KE246*64+N,G:NEXT 

170 FGRN=0T062: READQ:P0KE247*64+N , Q: NEXT 

100 F0RN=0TD62: READQ:P0KE248*64+N , G!: NEXT 

190 F0RN=0TO62:READQ:PQKE249*64+N,Q:NEXT 

200 FÜRN=0TÜ62s READQ:P0KE250*64+N,Q:NEXT 

205 FQRN=0T062:READQ:P0KE251*64+N,Q:NEXT 

210 REM DATAS TARZAN DEBOUT 

220 DATAO,0,0,0,04,0,0,160,0 

230 DATAO,236,0,0,152,0,0,160,0 

240 DATAO,32,0,10,170,128,10,170,128 

250 DATAB,168,128,8,168,128,8,220,128 

260 DATAO,116,0,0,136,0,0,136,0,0,136,0 

270 DATAO,136,0,0,136,0,0,136,0,0,136,0 

280 DATA2,138,0 

290 REM DATAS TARZAN #1 

300 DATAO,0,0,O,O,0,0,0,0 

310 DATAO,O,O,O,O,O,0,0,0 

320 DATAO,0,0,0,0,O,O,0,0 

325 DATAO,0,0,O,O,8,0,0,40,0,164,160 

330 DATA162,174,128,170,166,8 

340 DATA170,172,40,162,166,160 

350 DATA2,130,128,10,0,0,40,0,0,32,0,0 "—' 

360 REM DATAS TARZAN #2 \.-S 

370 DATAO,0,0,0,0,0,0,0,0 \i 

380 DATAO,0,0,0,0,O,0,0,0 > 

390 DATAO,0,0,0,0,0,0,0,0,0,0,O \ 

400 DATA32,0,0,40,0,0,10,26,0 v\ \ 

410 DATA2,106,138,32,154,170 

420 DATA40,58,170,10,154,130 \ [\ v , 

430 DATA2,130,128,0,0,160,0,0,40,0,0,8 Vf 

440 REM DATAS BARQUE I 

450 DATAO,0,0,0,0,0,0,0,0 X*I 

460 DATAO,0,0,0,0,0,0,0,0 ë 

470 DATAO,0,0,0,0,0,0,0,0,0,0,0 Ç, 

480 DATAO,0,0,O,0,0,0,0,0,0,0,0 / s 

490 DATA255,255,255,127,255,254,63,255,252 M - , 
500 DATA31,255,240,15,255,240,7,255,224 /' 

510 DAT A3,255,192 / - 

520 REM DATAS PERLES T 

530 DATAO ,0,0,0,60,0,0,255,0 ' 7 / / 

540 DATAI ,223,128,3,191,192 ^ \ 

550 DATA7, 127,224,6,255,224 ' 

560 DATA14,255,240,15,255,240 C — 

570 DATAI5,255,240,7,255,224 


. S" : P0KE1903, 160: PCIKEl 943, 160 




\W 






m 
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580 DATA7,255,224,3,255,192 
590 DATAI,255,128,0,255,0,0,60,0 
600 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
610 REM DATAS REQUIN! 

620 DATAO,0,0,0,0,0,0,0,0,0,0,0 
630 DATAO,112,0,0,56,0,0,28,0,0,28,0 
640 DATA192,31,192,96,255,248,51,255,238 
650 DATA31,255,255,31,255,224,55,255,252 
660 DATA97,255,248,192,127,128,0,0,0 
670 DATAO,0,0,0,0,0,0,0,0,O,0,0 

680 REM DATAS ROCHERS 

690 DATAO,0,0,O,O,0,0,O,0,0,O,O 

700 DATAO,1,0,0,3,128,0,15,192,1,159,224,3,254,240 

710 DATA7,252,120,3,254,240,7,255,240 

720 DATA31,159,252,63,191,252,31,223,252 

730 DATA7,255,56,15,255,252,15,252,124 

740 DATA31,254,248,15,255,240,0,0,0 

800 s 

850 s 

860 V=53248 

900 REM AFFICHAGE DECOR 

1000 POKEV+28,1 s POKEV+39,9:PÜKEV+38,0:POKEV+37,8:P0KE2044,251 
1002 POKEV+8,25 

1005 POKEV+23,16:POKEV+9,203 

1006 POKEV+43,11 

1010 P0KE2040,245:P0KE2041,248:P0KE2042,250:P0KE2043,249 
1020 REM FORMES DONNEES AUX SPRITES 
1030 PRINTCHR*<147> 

1040 PRINT <I MXN*M*W 

1050 FORT =1TO16: PRINT"S ■":NEXT 

1060 PR I NT " WNiMiJPlNNNNiiNNNNPlN" 

1070 PR INT" a y y X/ X 

1080 PR INT" a x/ / / -y -y 

1090 PRINT"a l \ I x/ y y x 

1100 FR INT" a x/ / /x/ x x X'X' 

1105 PR IN T" a \ X/ X-' / 

1108 PRINT"a X/ 

1109 PR INT" a_—- - - - 11 

1110 PRINT ,, *WÜ ÎÎTx I / m-y 

1112 print" nwr WSS 

1115 print" Ri-a m- U'-y 

lue print" nna wr •* — 

1120 PRINT" my I X ^-. 

1130 FQRT=1984T01990:READQ:POKET,Q:NEXT 
1140 DATA16,5,10,12,5,19,58 
1150 REM MESSAGE PERLES SANS SCROLLING 
1200 POKE1999,31:PÜKE56271,11 

1210 POKEV+16,19:P0KEV+40,11:POKEV+41,12:POKEV+42,1 :POKEV+29,54 
1220 POKEV+1,88:POKEV+3,95:PQKEV+21,27 

1230 FQRT=90T00STEP-1:POKEV,T:POKEV+2,T:F0RI=1T012:NEXTI,T 
1240 F0RT=1T03 s REM 3 SAUTS 

1242 F0RY=8BT075STEP—1 :POKEV+1,Y:F0RI = 1TQ5:NEXTI,Y 

1243 F0RY=75T088:PQKEV+1,Y:F0RI=1T05:NEXTI,Y 
1250 NEXTT:P0KE2040,246:POKEV+21,31 

1260 POKEV+16,18:POKEV,255 
1270 F0RX=255T0245STEP-1 : REM PLONGEON 
1280 POKEV,X:PQKEV+1,Y:Y=Y—1 
1290 NEXT 

1300 F0RX=245T0210STEP-1 
1310 POKEV,X:POKEV+1,Y:Y=Y+1 
1320 NEXT 

1325 F0RT=0T090STEP2:POKEV+2,T:POKEV,PEEK(V)-.5:NEXTT: X = 164:Y=113 
1330 PR I NT " i®WDX YGENE : " : P0KEV+30,0 : PC= 1 
1340 FGRC=1032T01060:POKEC,90:NEXTC 
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1342 POKEV+7,227:IFPC-0THEN1360 

1345 PQKEV+6,INT <RND <1)*200)+55:PC=0:P0KEV+21,31 
1350 REM BOUCLE PRINCIPALE 
1355 F0RW=0T0255STEP6 

1360 D=PEEK(56320):C=C-0.IlsIFC<1032THEN1550 REM OXYGENE??? 

1370 IFD=126 THEN Y=Y-3 

13B0 IFD=119 THEN X=X+4:P0KE2040,247 

1390 IFD= > 125 THEN Y=Y+4 

1400 IFD=123 THEN X=X-4:POKE2040,246 

1410 POKEV+4,Ws POKEC,32 

1415 IFY<98ANDPC=1THENPOKE1990+PP,81:Y=90: GOTO1345 

1420 IFX<32THENX=32 

1430 IFY<9BTHENY=9B:G0TÜ1340 

1440 IFX>254THENX=254 

1450 IFY >219THENY=219 

1500 POKEV,X:POKEV+1,Y:Y=Y-1 

1310 IFPEEK(V+30)=5THEN1590 

1520 IFPEEK(V+30)=9ANDD=111THENP0KEV+21,23:PP=PP+1:PC=1 : REM PREND UNE FERLE 
1525 IFPP=8THEN1599:REM NB DE PERLES 

1530 NEXTW:POKEV+5,INT(RND(1)*110)+105:GOTO1355 : REM FIN DE BOUCLE 
1540 : 

1550 POKEV+39,6:P0KE2040,245 

1560 FORY=PEEK< V+1)TO105STEP-.5: FORI-1T010:NEXTI 

1570 POKEV+1,Y:NEXTY:F0RT=1T0500:NEXTT 

1580 P0KE2040,246:POKEV+1,90:POKEV+21,0:GOTO1595 

1590 F0RT=1T080:X0=INT(RND(1)*10)+X:YO=INT(RND(1)*10)+Y 

1592 POKEV,XO:POKEV+1,YO:NEXT 

1595 P0KE53280,4: P0KE53281,4; PRINT"; SPC (13) " -I* GAME OVER *" 

159Q FORT-1TO1600:NEXTT: PRINT"3" :POKEV+21,0:END 

1599 POKE1998,81 : REM DERNIERE PERLE 

1600 F0RN=0T062:READQ:P0KE252*64+N,Q: NEXT 
1610 REM DATAS JEANNE... 

1620 DATA0,0,0,1,85,0,1,169,0,1,237,0 

1630 DATAI,153,0,0,168,0,0,32,0 

1640 DATA10,170,128,10,170,128,8,236,128 

1650 DATAS,168,128,8,168,128,8,220,120 

1660 DATAO,116,0,0,136,0,0,136,0,0,136,0 

1670 DATAO,136,0,0,136,0,0,136,0,2,138,0 

1675 E=PEEK(V+4): REM POSITION REQUIN 

1680 FQRT=90T00STEP—1 :F0RI = 1T012:NEXTI:POKEV+2,T 

16B5 POKEV+4,E:E=E+3: IFE >255THENP0KEV+5,0:E=0 

1688 NEXTT 

1690 FORY=PEEK(V+1)TO102STEP-1:P0KE2040,245:POKEV+1,Y: NE X TY 

1700 FORX=PEEK(V)TQ255:P0KE2040,247:POKEV,X : NEXT:PQKEV+16,PEEK(V+16)+1 :POKEV,0 
1710 POKEV+l,88:POKE2040,245 

1720 F0RT=0T090: FORI = 1TO12:NEX TI :POKEV+2,T:POKEV,T 
1722 NEXTT 

1725 P0KE532B0,10:P0KE532B1,10:P0KE646,11 

1730 PRINT'Tl" : W=0 

1740 POKEV+21,128:P0KE2047,252 

1750 POKEV+23,128:POKEV+29,128 

1755 PQKEV+38,8:POKEV+37,7 

1760 POKEV+28,129 : REM MULTICOLOR 

1770 POKEV+14,160:POKEV+15,153 

1780 PRINT"GRACE AUX PERLES DE TARZAN» 

1790 PRINT"JEANNE PU SE CONFECTIONNER» 

1800 PRINT"UN MAGNIFIQUE COLLIER...» 

1810 PRINT"W*I#MPW*Ja" 

1820 PRINTSPC(12)" • 

1830 PRINTSPC(12)" mmm 
1840 PRINTSPC(12)" mmmmm 

1050 PRINT"k.—-- 

1855 PRINT"MNa" ; SPC(15)"<ESPACE>" 

1858 REM SAUT 
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1B60 Y=-ABS (SIN (W) * (0*tr) ) +154 
1870 P0KEV+15 , Y :W=W+0.15 

1080 IFPEEK(203)=60THENP0KEV+21,0:PRINTCHRS(147): END 
1090 G0T01860 

2000 P0KE53280,3ePOKE53201,3:PQKE646,6 
2010 PR INT "CI" 

2020 PRINT" /- 

2030 F0RT= , 1T021 SPRINT" I l":NEXT 

2040 PRINT" v - 

2050 PR I NT " jatPliWi" ; SPC (15) "TARZAN! " 

2060 PRINT"B" 

2070 PR INT "«POUR CONQUERIR L'AMOLJR DE TA W" 

2080 PRINT"IWBIEN AIMEE ' TSJEANNEB ' , TOI, TARZAN*!" 

2090 PRINT"*»IAVEC POUR SEULE COMPAGNIE TA PIROGUE*!" 

2100 PRINT">»IIRA CHERCHER AUX FONDS DES MERS.W" 

2110 PRINT"WiœB PERLES PRECIEUSES POUR POUVOIR*!" 

2120 PR INT "DÉFAIRE UN COLLIER ET L'OFFRIR *!" 

2130 PRINT">HA JEANNE, MAIS CE N'EST PAS SI*!" 

2140 PRINT"»EIMPLE CAR LES MERS SONT PLEINES DE*J" 

2150 PRINT"»»»»ft»»»ft»»UFEQUINS! ! !" 

2160 PRINT"WN" ; SPC(28)"<«BOUTON»>" 

3000 IFPEEK(56320)=111THENRETURN 
3010 GDT03000 

READY. 


COMMODORE 64 


LABYRINTHE 

Pris au piège dans un labyrinthe, vos pas sont 
comptés pour en sortir. Il vous faudra non seulement trouver 
la sortie en utilisant le chemin le plus 
court mais aussi le parcourir le plus rapidement possible. 


10 

PR INT 

"H Sfii UN 

LABYRINTHE ■" 

20 

PR INT 

"«SORTEZ DU LRE'VRINTHE EN FRISRNT" 

30 

PR INT 

• LE MOINS DE 

PRS POSSIBLES." 

40 

PR INT 

•W QUAND VOUS 

PASSEZ UNE PORTE"; 

50 

PR INT 

■ ELLE’ VOUS 

BONNIFIE DE 10 PRS" 

60 

PR INT 

'» RU DEPRRT 

VOUS EN AVEZ '100'" 

70 

PR INT 

•:« pour vous 

DEPLACER UTILISEZ " 

80 

PR INT 

"M Z POUR RLLEZ R GAUCHE" 

90 

PR INT 

" X 

R DROITE" 

1 00 

PR INT 

" M 

EN BAS " 

11Ô 

PR INT 

" K 

EN HAUT " 

120 

PR INT 

"WWRPPUVER S 

DR UNE TOUCHE": 

130 

PR INT 

" POUR COMMENCER" 

140 

GET R 

$ ■■ IF R* = " 

" THEN 140 

150 

PR INT 

"rr 


160 

F’OKE 

5328U, c 


170 

PÛKE 

53281,0 


180 

RESTORE 


190 

GO SU B 

740 


200 

GÜSUB 

1090 


218 

PR = 

100 


220 

PR INT 

"S"SPC<33>;Pfi 
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230 P = 1433 

249 XV = P 

250 POKE P+ÜI,0 
260 POKE P.. 37 

270 TI* = "000000" 

230 T0 = 30-VRL<t1ID*<TI*,5,2:O 
230 PR INT" S 1111" ; TO 

300 IF VRL<MID*<TI*,5,2>> > 30 TNEN 330 
310 GET R* * IF R* O "" THEN 350 
320 GOTO 230 


330 

PRINT"a 

LE 

TEMPS EST 

ECOULE 

340 

GOTO 710 




350 

IF R* = 

"X" 

THEN DX = 

1 

360 

IF R* = 

"M" 

THEN DX = 

40 

370 

IF R* = 

m ^ •! 

THEN DX = 

-1 

330 

IF R* = 

"K" 

THEN DX = 

-40 

390 

PR = PR 

- 1 

: XV = F 

■ + DX 


400 PR INT "«"SPC <33 > ; " ■■■■I" ; PR 

410 IF PR = 0 THEN 710 

420 IF XV = 1177 THEN 660 

430 IF PEEK<XV> O 32 THEN 490 

440 POKE P,32 

450 P = XV 

460 POKE P+DI>0 

470 POKE P,87 

430 GOTO 230 

490 REM 

500 IF PEEK<XV> =160 THEN 280 
510 FOR Z=1 TO 4 
520 IF PEEK<XV> = R<Z> THEN 560 
53© NEXT Z 

546 PRINT" ET ElEN OU RLLEZ-VOUS?" END 
550 GOTO 1410 

560 OH Z GOTO 57Ô,530,5SO,570 
570 ON SGN<DX>+2 GOTO 650,,590 
530 ON SGN<DX>+2 GOTO 590,,650 
590 POKE P,32 
600 POKE P,32 


REROV. 


618 P = XV + DX 
628 POKE P+DI,0 
630 POKE P,87 
640 PR = PR + 10 
650 GOTO 280 
660 REM 

670 POKE 1137,32 

6SG FOR T=1 TO 500 

690 POKE 1177,94 • POKE 1177,112 

700 NEXT T : GOTO 1410 

710 PRINT"Si"SPC< 170> ; "VOUS ETES EPUISE ET" 
728 PRINTSPC <10 >"ELLE VR RESTEE VIDE" 

730 GOTO 1410 
74G DI = 54272 
750 CR <1> = 0 
760 TI*="000000" 

770 FOR X=1 TO S 




780 REflD Cfl<X> 

790 NEXT X 
S00 REflD RD 
310 RERD XL 
320 REflD VL 
330 GOSUB S70 
340 POKE 53280,1 
350 POKE 53281,1 
330 RETURN 
370 REM 
330 D = RD + 1 
390 F = D + XL-2 
900 SI = 1 
910 CH = 1 
920 GOSUB 1450 
930 D = F + 41 
940 F = D + <VL-2>*40 
950 SI = 40 
960 Cfl = 3 
970 GOSUB 1450 
930 D = F + 39 
99Û F = D - XL+2 
1000 SI = -1 
1010 Cfl = 5 
1020 GOSUB 1450 
1030 D = F - 41 
1040 F = D - <VL—2>*40 
1050 SI = -40 

106G Cfl = 7 

1070 GOSUB 1450 
1030 RETURN 
1090 P = 1523 
1100 L = 1 
1110 OX * 1 * D - 1 

1120 PKI) * 106 = fl<2> = 116 

1130 fl<3> = 119 : fl<4> = 111 

1140 FOR Z = 0 Tû L 
1150 P = P + DX 
1160 IF P < 1064 THEN 127© 
1170 POKE P+DI,6 
1180 POKE P,160 

1190 NEXT 2 

1200 L = L + 1 





REflOV. 


1210 ÜN D GOTO 1220,1230,1240,1250 
122© DX = -40 : D = 2 : GOTO 1140 

1230 DX = -1 : D = 3 GOTO 1140 

1240 DX = +40 J D = 4 : GOTO 1140 

1250 DX = +1 * D * 1 * GOTO 1140 

1260 GOTO 1140 

1270 POKE P+40,32 * POKE P+80,32 
1280 POKE P+122+DI,11 : POKE P+123+01,11 
1290 POKE P+122,112 = POKE P+123,115 
1300 FOR Z=1 TÛ 22 STEP 2 
1310 fl » INT<RND<1>#2 + 1> 




W. : 





1320 POKE 1471+2+1+01,12 
1330 PÜKE 1471+Z+l, flc.A> 

1340 POKE 1471+2,32 
1350 ft = INT<RN0<1>*2 + 3> 

1360 POKE 1043+2*40+40+<<1083+2*400523>*40>+DI,12 
1370 POKE 1043+2*40+40+ < < 1083+Z*40<1523 > *40 >,fl <fl > 

1380 POKE 1043+2*40+ < <1083+Z*40C1523> *40>,32 
1390 NEXT Z 
1408 RETURN 

1410 PRINT SPC <120 y " OH RECOMMENCE <0/N> 

1420 GET R$ ■ IFR$ = "0" THEN PRIMT"73" GOTO 160 

1430 IF R$ O "H" THEN 1420 
1440 END 

1450 FOR XV = D TO F STEP SI 

1460 IF XV < 1024 OR XV > 2023 THEN 1528 

1470 POKE XV +. DI,CO 

1480 POKE XV,CB<CFO 

1430 NEXT XV 

1500 POKE XV + DI,CO 

151G POKE XV,CACCA+1> 

1520 RETURN 

1530 DATA 67,110,93,125,67,109,93,112 
1540 DATA 1025,37,23 

REflDV. 


COMMODORE 64 

DESSUS DESSOUS 

Un jeu de pari où l'on peut jouer seul 
face à l'ordinateur, ou jusqu'à quatre personnes. Chacun 
dispose de la somme de 1 000 F dont il se servira 
pour miser. Le but du jeu consiste à deviner si la prochaine 
carte tirée par la machine sera supérieure ou 
inférieure à la précédente. Ambiance de tripot garantie... 


10 CLE 
20 PRINT"n" 

38 PEINT" LE JEU CONSISTE" 

40 PRINT"W fl DEVINER SI LE HASARD VA TIRER" 

50 PRINT"M UNE CARTE SUPERIEURE" 

60 PRINT" OU INFERIEURE" 

70 PRINT"M JEU DE 1 fl 4 JOUEURS" 

30 PRINT"WW VOUS AVEZ CHACUN 1000F" 

90 PRINT"WWMM ORDRE DES CARTES" 

100 PRINTSPC<10)"2 3 4 5 6 7 8 9 10 V ü R AS" 

110 FOR T=1 TO 6800 = NEXT T 

120 PR INT" 73 COMBIEN ETES-VOUS <1 fl 4 > " 

130 GET R$ = IF R*= "" THEN 130 
148 NB = VALCR*} 

150 IF NB < 1 OR NB > 4 THEN 130 
160 FOR X = 1 TO NB 
170 T MCO = 1000 
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180 NEXT X 
130 PR INT "a 

200 TV$ ="2345678 310 V D R 1" 

210 TC$= 

220 DIM JC*:;i3,4> 

230 PÜKE 53280,14 PÜKE 53281,15 

240 ÜÜSLIB 680 

250 P = 23 : GOSUB 830 

260 GÜSUB 750 

270 V0 = V 

28G GOSUB 910 

290 PRINT"SMBlBl OU -'S' , MISE <RETURN>" 

300 PRIMT"JOUEUR N0=" 

310 FOR X=1 TO NB 

320 IF TM<X> = 0 THEM PRINT" "* GOTO 410 

330 MG-O = 0 

340 printx;" imiuur 

350 INPUT R$<X>,M<X> 

360 IF R^<X) = "S" THEN R<X> = 1 GOTO 400 

370 IF R$<X> = "I" THEN R<X> =-l GOTO 400 

380 IF R*O:) = "FIN" THEN 660 
390 GOTO 350 

400 IF MOO > TM<X> THEN 350 

410 NEXT X 

420 GOSUB 750 

430 P = 19 = GOSUB 830 

440 GOSUB 910 

450 SG = SON <V—V0 > 

460 PRINT ThB<27> CHR$<61 + SG> 

470 IF SG = 0 THEN 520 

480 FOR X=1 TO NB 

490 IF TM<X> = 0 THEN 510 

500 TM<X> = TM < X > + M < X > * Rù'X> * SG 

510 NEXT X 

520 PRINT"a"; 

530 FOR X=1 TO NB 

540 PR INT" X; " > "TMCX> ; 

550 NEXT X 

560 FOR T=1 TO 3500 : NEXT T 
570 GOSUB S3G 
580 P = 29 
596 FOR X=1 TO NB 
600 IF TM<X> > 0 THEN 0=0 


REfiDV. 


610 NEXT X 

620 IF 0 = 0 THEN 650 
630 0=0 
640 GOTO 270 
650 PR INT "« VOUS N •'AVEZ PLUS RIEN fl MISER 
660 PRINT" fl BIENTOT" 

670 END 

680 REM TAPIS 

690 PRINT"aWl3"; TflB< 17 >" ,--, 

700 FOR T=1 TO 12 



710 PRINT TflB<17>;"I 


I " 
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130 FOR T = 1 TO 5000 *• HEXT T 

140 PR I HT "m RTTENTIOH LE PLUS P 

150 PRINT " TIRE SUR VOUS" 

160 PRINT " ET VOUS N'AVEZ QU'UNE 
17© FOR T=1 TO 4000 = HEXT T 
1S0 TI$ = M 000000" 

130 Nfl = 0 : NE = 0 
200 NB = 3 
210 0=1 
220 TP<0> = 1284 
230 T = 0 : TT = 0 


PROCHE"; 


TE. " 


240 CU 
250 CX 
26© NB 
270 VU 
230 N0 


1364 

20 

NB + 
0 
NB 


230 FOR X=1 TO NB 

300 0 = -D 

310 TO= 0 

320 TP-:X> = TP<X—1 > + 40 

336 NEXT X 

340 REM CONSTITUTION DE LA PRISON 

350 PRINT 

360 FOR V=1 TO 2 

370 PRINT CHR^<16S>;SPC<5>; 

380 FOR X=1 TO 23 
330 PRINT CHR$<166>; 

400 HEXT X 

410 PRINT SPC<4>;CHR$C168>; 

420 HEXT V 
430 V = 1 

440 PRINT CHR$':i6e>;SPC<5>; 

450 FOR X—1 TO 14—V 
460 PRINT CHR$<166>; 

470 NEXT X 

480 FOR Z=1 TO V 

430 PRINT CHR*<32>; / 

500 HEXT Z jfj. 

510 PRINT CHR$( 17S> ; jfC- : 

520 FOR Z=1 TO V vf 

530 PRINT CHR$<32>; B y 

540 HEXT Z ' Ij. / 

550 FOR X=1 TO 14—V I / 

560 PRINT CHR$<166>; jk t 

570 HEXT X *. \ 

530 PRINT SPC<4>;CHR$<168>; i 
530 V = V + 1 \ 

600 IF V <= H0 THEN 440 \\ 


0 

TP<X—1 > 




h±=rf 


U 






REflDV. 


619 POKE 53280 >8 

620 POKE 53281 * 7 ^ 

630 GET R$ 

640 IF R$ = " " AND T=0 THEN T=CU-40 * GOTO 320 
650 POKE CU,32 
660 POKE CU—40,32 

670 IF R$ = "N" THEN CU=<CU-l + < 03U-1>1382}-<CU-l<l345}>} 



GOTO 320 
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680 

IF R* = "N" 

THEN 

CU* < CU+1 -K < Ct 

J+1 > 1982 > 

690 

POKE CU,102 




700 

POKE CU—40, 

93 



710 

IF T = 0 THEN 820 



720 

REM TIR T 




730 

POKE T,32 




740 

FOR Z=1 TO 

N0 



750 

IF T = TP<Z 

> THEN 

1030 


760 

N EXT Z 




770 

T = T - 40 




780 

IF T < 1263 

THEN 

T = 0 : GOTO 

828 

790 

IF PEEKCT) 

= 102 

THEN T = 0 = 

GOTO 820 

800 

POKE T,46 





810 REM DEPLACEMENT 

820 Z = INT <RND < 0 > #NB + 1> 

830 IF Z > Nü THEN 930 

840 POKE TP<Z> , 32 

850 TP<Z> = TP<Z> + TD<Z> 

860 IF TP<Z> = T THEN 1030 

870 IF PEEK'CTP<Z>> O 104 THEN 900 

880 NE = NE + 1 

890 GOTO 1070 

900 IF PEEK<TP< Z > > = 102 THEN TD<Z> 

910 POKE TP<Z> , 114 

920 REM TIR DEFENSE 

930 IF TT = 0 THEN TT = TP<N0> + 46 

940 POKE TT,32 

950 TT = TT + 40 

960 POKE TT,32 

970 IF TT = CU + 40 THEN 1200 

980 IF TT > 20G0 THEN TT = 0 

990 IF TT = T THEN TT ■ 0 * T - 0 

1000 POKE TT,58 

1010 GOTO 630 

1020 REM TUE 

1030 POKE TP<2>,32 

1040 Nfl = Nfl + 1 

1050 T = 0 

1060 REM 

1G70 NI = NI + 1 

1080 IF NI = NB THEN 1156 

1090 N0 = N0 - 1 

1100 FOR X=Z TO N0 

1110 TP<X> = TPCX+l> 

1120 NEXT X 

1130 GOTO 630 

1140 REM FIN DE MANCHE 

1150 PRINT M a PRISON N0 M ;NB-3; 


—TD<Z> 



116G PRINT HE; "EVflSION<S> " Nfl; "ABATTUS 
1170 FOR T=1 TO 2000 = NEXT T 
1180 POKE 53281,14 


1190 GOTO 230 


1200 PRINT "S TOUCHE RU COURS DE Lfl MANCHE", 


REAOY. 


1210 PRINT " N0:";NB-3 
1220 PRINT " VOUS AVEZ TENU 


h • 





LE PINCEAU 

Une palette de couleurs, un pinceau, les touches de 
déplacement, vous voilà fin 
prêt pour débuter une grande carrière artistique ! 


10 
28 
30 
4ô 
50 
60 
70 
SG 
90 
1 GG 
110 
120 
130 
140 
150 
16 G 
170 
180 
190 
20G 
210 
220 
230 
240 
250 


PR INT "21 S VOUS ETES R MEME DE FRIRE DE 
PRINTSPCOéVStoP CE h.1 Üff-J fiiiT 7JJ inF: !E«" 

PRINTSPC<169 > " SfiNS VOUS SRLIR " 

FOR T=1 TO 5000 * NEXT T 
PRINT "OfiJ UTILISEZ LES TOUCHES 5 " 

PRINTSPC<120>" P POUR MONTER" 

PRINTSPC<30> 11 . POUR DESCENDRE" 

PRINTSPCC80>" L POUR ALLER fl GAUCHE" 

PRINTSPC<80>" ; POUR ALLER A DROITE" 

PRINTSPC<120>" AINSI ÜUE CERTAINES TOUCHES" 
PRINTSPC<80>" ALPHABETIÜUES POUR CHOISIR"; 
PRINT " LES COULEURS" 

FOR T=1 TÜ 10000 : NEXT 
POLE 650,128 


LA ■" 


T 


CC = 

56058 = 

EE=17S6 

HE = 

1024 

PE * 

1984 

AC = 

55296 = 

DI = 

54272 

POKE 

53280 .• 0 

POKE 

53281 




DEF FNL<X> =LEN<CHRT<INT <X> 

T1T = "QWERTVUIASDFGHJK" 

PR INT" 21" 

Cü = 0 ■■ C = 1 
XX = 20 :-VV = 12 

PRINT"BS PALLETTE DES COULEURS 1 
FOR X = 1 TO 16 
260 READ CT 

270 PRINT TflB<9-LEN<CT> ; CT ; 


MI DT 


280 

NEXT X 



290 

REM 

PRINT' 

■aa 

300 

FOR L 

= 1 TO 

16 

310 

FOR X 

- 1 TO 

9 

320 

POKE AC+L*4G+X,l 

330 

NEXT X 



340 

NEXT L 



350 

PRINT 



360 

PRINT" 

P " 


370 

PRINT" 

L , " 


380 

PRINT" 

■ 


390 

PRINTS 

PC <. 40 > r 

•LA 

400 

PRINT 

" SERT 

A 

410 

PRINT 

" < AVEC 

OU 


PALLETTE DES COULEURS ■ 


GRANDE BARRE".: 
INVERSER LE TRACE" 
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420 PP = 




* 40 


430 POKE EE>160 

440 Cl = PEEK<PE+DI+PP> 

450 GOSUB 690 
460 POKE CC> CÜ 

470 GET R$ : IF RS ="" THEN 440 

430 REM RECHERCHE TABLE ZONE COULEUR 

490 FOR X = 1 TO 16 

500 if rs = mid$cti$>x> i> then co = x 


: GOTO 460 


510 HEXT X 


520 

IF 

RS = "P" 

THEN 

DX= 0 

OV= 1 : GOTO 600 

530 

IF 

RS = "L" 

THEN 

DX=-1 

DV= O * GOTO 600 

540 

IF 

RS = ";" 

THEN 

H 

+ 

II 

X 

LJ 

DV= 0 : GOTO 600 

550 

IF 

RS = ».» 

THEN 

DX= 0 

0V=—1 5 GOTO 600 

560 

IF 

R$ O " 

1 THEN GOSUB 

690=GOTO 440 

570 

REM INVERSION 



530 

IF 

PEEKŒE> 

= 36 

THEN POKE CEE>>160 = C= 

590 

IF 

PEEK <EE > 

= 160 

THEN POKE’ < EE > > 36 * C=G 

600 

REM DEPLACEMENT 



READV. 





610 

XX= 

=XX+DX+C < 

xx+dx: 

>33 > — < x: 

■:+DX< 12 > > 


•GOTO 440 
= GOTO 440 


620 VV-VV+DV+ < < VV+DV>22 > - < VV+DVC1 > > 

630 PH —VV#40 + XX 

640 IF C=1 THEN POKE PE+DI+PP..CÜ 1 POKE PE+PFM6G 
650 IF C=0 THEN POKE PE+DI+PP..C1 * POKE PE+F'P, 16G 
660 PP = PN 
670 GOTO 440 
630 REM 

690 REM "LE PINCEAU*" 

700 POKE PE+PF’+DI>11 
710 POKE PE+PP,73 
720 POKE PE+PP >35 
730 POKE PE+F’P >66 
740 POKE PE+PP+DI> Cl 
750 RETURN 

760 STOP • REM DATA DES COULEURS 

770 DATA NO IR > BLANC.. ROUGE > TURQUOI SE > VIOLET, VERT 

730 DATA BLEU > JAUNE > ORANGE > MARRON >ROUGE-CL 

790 DATA GRI -1 > GRIS—2 > VERT—CL .■ BLEU-CL.. GRIS—3 

300 FIN 

READV. 


COMMODORE 64 

INSTRUMENTS 

Un programme très utile aux mélomanes qui leur fera réaliser 
des économies substantielles sur l'achat 
d'instruments de musique divers. Votre Commodore se 
transformera à volonté en piano, violon ou orgue. 

A vous de créer les mélodies qui charmeront votre entourage ! 


10 PRINTSF’C<40> " 7} UTILISEZ VOTRE CLAVIER" 

20 PRINTSF’C<4©> " COMME «INSTRUMENT DE MUSIQUES. " 








30 PRINTSPC<80>“ LES TOUCHES FONCTIONS VOUS PERMETTENT" 
4© PRINTSPC<40> " DE SELECTIONNER L.E TVPE DE TONNALITE” 
50 PRINTSPC<40V QUI SE RAPPROCHE DU",, 


60 

PRINT" 

Fl 

- PIANO",, 

78 

PRINT" 

F2 

- VIOLON", 

80 

PRINT" 

F 3 

- ORGUE" 


90 PRINTSPC<40 V LES TOUCHES CORRESPONDANTES AUX NOTES SONT ;" 
10O PR INT" 348 QWERTY U 

110 PRINT" «58 A 

120 PRINT" Sfc“B Z 

130 PRINTSPC<40>"LA BARRE 
140 01$ = CHR$<133> 

150 02$ = CHR$C134 > 

160 03$ = CHR$<135> 

170 0$ <1> = "QWERTVU" 

ISO 0$<2>="ASDFGHJ" 

190 0$ <3> = "ZXCVBNM" 

200 TS<1> = 65 
210 TS<2> = 33 
220 TSC3> = 17 
230 DIM H F < 22 > , BF < 22 > 

240 N = 1 
250 I = 1 
260 RESTORE 
270 READ HF(N) 

28© RE AD BF-a-O 
290 IF HF<N> = -1 THEN 320 
360 N = N + 1 
310 GOTO 270 

320 FOR L=54272 TO 54296 
330 POKE L,0 
340 NEXT L 
350 G G S UE: 590 
360 POKE 54296,15 
370 FOR Z=1 TO 250 
380 GET R$ 

390 IF R$ O "" THEN 430 
400 NEXT Z 

410 POKE 54276,TS<I>-1 
420 GOTO 370 

430 IF R$ = " " THEN PRINT"AU REVOIR" = END 
440 IF R$=Û1$ OR R$=02$ OR R$=03$ THEN 460 
450 GOTO 470 
46G I = ASC<R$>-132 
470 FOR 0=1 TO 3 
480 FOR N = 1 TO 7 

490 IF R$ = MID$<0$<0>,N,1> THEN 530 
500 NEXT N 
510 NEXT 0 
520 GOTO 370 
530 POKE 54276,TS<I>—1 
540 X = <0 - 1>#7 + N 
550 HF = HF < X > 

560 BF = BF < X 
570 GQSUB 660 
58G GOTO 370 
590 AD<1> =12 
600 AD(2) = 90 

READV. 
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RD <3> = 0 

srci:> = 0 

SR <2 > = 94 
SR<3> = 240 
HH<1> = 3 
POK'E 54296.. 15 
.70 POKE 54277,flD<I> 

PÜKE 54275,HH<I> 

POKE 54273,SR<I> 

POKE 54276,TS<I> 

PÜKE 54273,HF 
POKE 54272,EF 
REM 

REM FOR T=1 Tü 125 
REM NEXT T 

REM PÜKE 54276,TSCI>-1 
FOR T=1 TO 10 
N EXT T 
RETL1RH 

DRTR 17,37,19,63,21,154,22,227 
DRTR 25,177,23,214,32,94 
DRTR 34,75, 33, 126., 43, 52, 45, 198 
DRTR 51,97,57,172,64,1SS 
DRTR 63,149,76,252,36,105,91,140 
DRTR 102,194,115,33,129,120 
DRTR -1,-1 


REfiDV. 


COMMODORE 128 


URANIUM 

Votre vaisseau spatial a soif de combustible. Si vous ne lui 
en trouvez pas dans les plus bref délais, 
c'est le crash assuré ! Cette étrange machine carbure à 
l'uranium, énergie que vous trouverez 
disséminée deçà delà dans les grands espaces intersidéraux. 


READY. 


READY. 

99 REM URANIUM 

100 SCNCLR:COLQR O f leCOLOR 4,ltC0L0R5,2 

110 PRINT" - 

120 PRINT"!3 tt i—"s r-. t t t 

130 PRINT“ lit K - H i I I I I I 

140 PR INT'Ta! v —-' w 

150 PR INT 11 81- 

160 SLEEP 4sSCNCLR 

165 FOR HJ=0 TO 5 

170 FOR U=*l TO 0: SPRITEU, 0: NEXT 


99 








190 C0L0R 4,1b COLOR 0,1:C0L0R 5,2 

200 FOR 1=0 TO 30ïPRINT. TAB(INT(RND<1)*39))"."sNEXT 

210 PPTMTH.r..- ■ »»»»»»»»■ — _" 

220 pr i nt u :::::: wiimMiiwiwm __•• 

230 PRINT CHR*<149> 

240 FOR 1=1984 TO 2023sPOKE 1,100:NEXT 
245 PRINT"ixf , ‘ ; SPC (16) "STAGE"; HJ 
250 Q=20:W=90 

260 SOUND 2,6527,494,1,2456,1353,2,442 
270 MQVSPR 1,Q,WsSPRITEl,1,16 

2B0 Q=Q+1BIFQ>=300 THEN Q=Q-1:W=W+1: SOUND 1,43712,1,1,2351,5351,1,3512 
290 IF W>=230 THEN W=W-1:G0T0 310 
300 GOTO 270 

310 M0VSPR3,90,150:5PRITE3,1,3s SOUND 1,25340,2 
320 SLEEP2 

330 M0VSPR4,100,70sSPRITE4,1,3:SOUND1,45123,2 
340 SLEEP 2 

350 MOVSPR5,265,100a SPRITES,1,3;SOUND1,2471B,2 
360 X=270;Y=229 
370 T= 400 

300 M0VSPR2,X,YaSPRITE2,1,2 
390 T=T-1 

400 PRINT"iïENERGIE s";P : PRINT'TTTEMPS" ; T 
410 IF JOY <2) = 1 THEN Y=Y-3:S0UND 1,3223,1 
415 IF P>=3000 THEN GOTO 520 

420 IF BUMP <1)=6 THEN SPRITE3,0:P=P+1000:SOUND 2,12031,2 
430 Y=Y+1 

440 IF JOY(2)=3 THEN X=X+2:S0UND 1,3423,1 
450 IF BUMP(2)=3 THEN T=T-10 
455 IF T<=0 THEN GOTO 1000 

460 IF BUMP(1)= 1BTHEN P=P+1000aSPRITES,0:SOUND 1,0321,2 

470 IF Y>=229 THEN Y=Y-lsS0UND 1,3123,1 

480 IF JOY <2)=5 THEN Y=Y+2:SOUND 1,3223,1 

490 IF BUMP(1)=10THEN P=P+1000:SPRITE4,0;SOUND 1,0262,2 

500 IF JOY(2)=7 THEN X=X-2aSOUND 1,3423,1 

510 GOTO 3B0 

520 SOUND 2,6527,950,1,2456,1353,2,442 
530 SPRITE2,0:F=300:G=229 
540 MOVSPR 1,F,G 

550 G=G-1 s IF G< =90 THEN G=G+1:F=F-1 

560 IF F<=20 THEN GOTO 500 

570 GOTO 540 

500 SCNCLR:S0UND2,6527,0 

590 FOR 1 = 1 TO 0a SPRITEI,0:NEXT 

600 PRINT":««fWiW»liliW»J VOUS AVEZ GAGNE AVEC 3000 D'ENERGIE" 

610 SLEEP 4 

620 P=ObNEXT HJbRUN 

1000 SCNCLR:S0UND2,6527,8 

1010 FOR 1 = 1 TO 0a SPRITEI,0s NEXT 

1020 PRINT"WWiWPl«iW*M»«»»***»»MMH GAME OVER" 

1030 SLEEP 4 
1040 RUN 


READY. 
READY. 
READY- 


100 










1 REM DEF SPRITE 

2 PRINT"PATIENTEZ SVP" 

3 SLEEP 4 
10 FAST 

20 FOR H TO 1 
30 A$="" 

40 FOR G=0 TO 20 
50 READ B* 

60 IF LEN(B$><24 THEN BS=B$+"." 

70 FOR 1=0 TO 2 
80 A=0 

90 FOR J=0 TO 7 

100 IF MIDS<B$,I*8+J+1,1>="*"THEN A=A+2t(7-J) 

110 NEXT J 

120 A$=A*+CHR$<A> 

130 NEXT I 
140 NEXT S 
150 SPRSAV A$,T 

160 DATA**.**.'.. 

170 DATA**.**. . . 

180 DATA. .*.*. 

190 DATA. . .*.*. 

200 DATA. . . .*.*.*. 

210 DATA.*....*. *. 

220 DATA.*..***..*. 

230 DATA.**. . .**. * . 

240 DATA.*. . .*. 

250 DATA....**■**. jj 

260 DATA.*********.. fi 

280 DATA.*. . . *. 

300 DATA.*.*. ffi'&sgSX 

310 DATA.*.*. 

320 DATA....*.*. 

330 DATA...*.*. 

370 FOR T=2 TG 2 Jï 

380 AS="" /L 

390 FOR G=0 Tü 20 ~ \ 

400 READ B* ~"" 

410 IF LEN<B*><24 THEN B$=B*+"." 

420 FOR 1=0 TO 2 
430 A=0 

440 FOR J=0 TO 7 

450 IF MIDS(B$,I*B+J+1,1)="*"THEN A=A+2T<7-J> 

460 NEXT J 

470 A$=A$+CHR$<A) 

400 NEXT I 
490 NEXT G 
500 SPRSAV A*,T 

510 DATA... 

520 DATA. 

530 DATA.***. 

540 DATA. . .*****. 

550 DATA.***.. 

560 DATA........****..*. 

570 DATA.........***.***.... 


m 


v C'y 
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580 DATA........#*.*****. 

590 DATA.**. . ****. ....... 

600 DATA.**.**..♦***. 

610 DATA.*****..****. 

620 DATA.*.****. 

630 DATA.....********.**... 

640 DATA.*****. 

650 DATA.**»**...**. 

660 DATA.*****. 

670 DATA.....***.....*...*. 

680 DATA.***. *........ 

690 DATA.***...*.*. 

700 DATA....****.*.*..*. . 

710 DATA...*****...*. It 

720 FOR T=3 TO 3 
730 A*= M " 

740 FOR G=0 TO 20 
750 READ B* 

760 IF LEN<B$><24 THEN B$«=B$+". " 

770 FOR I«0 TO 2 
780 A“0 

790 FOR J=0 TO 7 

800 IF MI DS(BS,I*B+J+1,1)="*"THEN A=A+2T(7-J> 

810 NEXT J 

820 AS=AS+CHRS(A> 

830 NEXT I 
840 NEXT G 

850 SPRSAV AS,T:SPRSAV AS,4:SPRSAV AS,5 
860 SLOW 

870 DATA. 

880 DATA. 

890 DATA. . ****.****. . 

900 DATA..****.****.. 

910 DATA..******..******,. 

920 DATA..******....*****♦.. 

930 DATA....****.****__ 

940 DATA. . . . *****.**♦**. . . . 

950 DATA.**.**. 

960 DATA.**. 

970 DATA.****. 

980 DATA.******. 

990 DATA.; . . ****. 

1000 DATA.**. 

1010 DATA. **......** . 

1020 DATA....*****.*****.... 

1030 DATA....****.****.... 

1040 DATA. . ******.******. . 

1050 DATA..******.******.. 

1060 DATA..**♦*............*#**.. 

1070 DATA. . ****.****. . 

1080 SCNCLR 

1090 INPUT‘*DISK :D , CASS : C " ; AS < 

110Ô IF AS®"D" THEN DLOAD"URANIUM" 

1200 IF A$="C" THEN LüAD"URANIUM" 

1210 GOTO 1090 



C 















READY. 
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COMMODORE 128 


DOUBLE 


La grande difficulté de ce programme réside dans la double 
commande de deux vaisseaux. On les contrôle 
simultanément dans le but d'éviter une kyrielle d'objets 
volants non identifiés tout en collectant 
le maximum de diamants qui voguent dans les cieux étoilés. 


READY. 


10 SCNCLR 

20 REM"ll*il DE LA PART DE LUDQ POUR TILT 

30 PRINT"VOUS JOUEZ SUR DEUX TABLEAUX ; VOUS DEVEZ PRENDRE LES DIAMANTS ET EVITE 
Z LES PAROIS + LES ETOILES" 

40 SLEEP 4 
50 SCNCLR 

60 COLOR 4,1:COLOR 0,1:COLOR 5,2 

70 PRINT ,, :PMN«Pi«PiN-" 

SO PR I NT "«S -r-% I I 

90 PR INT" I I ✓ -r -r h s I /— 

100 PRINT" I I i I I I I I 1 I-' 

110 PR INT" ' ' v — -*•—^ ■-—al 

120 PR INT"-" 

130 SLEEP 2 
140 FAST 
150 FOR T=3T0 3 
160 A$="" 

170 FOR 0*0 TO 20 
180 READC* 

190 IF LEN<C*><24 THEN C$=C$+"." 

200 FOR1=0 TO 2 
210 A=0 

220 FOR J =0 TO 7 

230 IF MID$(C$,I*8+J+l,1)="*"THENA=A+2f<7-J> 

240 NEXT J 

250 A$=A$+CHR$<A> 

260 NEXT I 
270 NEXT 6 

200 SPRSAV A$, T:SPRSAV A$,4:SPRSAV A*, 5 
290 NEXT T 

300 REM 012345678901234567890123 

310 DATA. 

320 DATA.*. 

330 DATA.**.***.***. 

340 DATA.#.*.*.*■*. 

350 DATA.».***.***. 

360 DATA. 

370 DATA. 

300 DATA.*****.. 

390 DATA.*.*♦*.*. 

400 DATA.*.*.*.*.*. 

410 DATA.*.**».*. 

420 DATA.*.*.*. 

430 DATA.*.*. 

440 DATA.*. 

450 DATA. 

460 DATA. 

470 DATA. 


103 

























DATA. 

DATA. 

DATA... 

DATA. 

REM 

FOR T=1T0 1 
A$“" " 

FOR G=0 TO 20 
READB* 

IF LEN(B$)<24 THEN B*«B*+"." 

FOR1=0 TO 2 

A=0 

FOR J*=0 TO 7 

IF MID*<B* f I*8+j4l,l)="*"THEI 
NEXT J 

A*=A*+CHRS<A) 

NEXT I 
NEXT G 

SPRSAV AS,T:SPRSAV A*, 2 
NEXT T 

REM 012345670901234567090123 

DATA. 

DATA. 

DATA.***. 


*"THENA=A+2T(7-J> 





720 DATA. **.**. ...*. if y f /.y y 

730 DATA. .,**#****. *******. /' \v 

740 DATA. ..#**#*##. *******. >/ ftfjfjf y — \\ 

750 DATA. . . *******, ******* . f Ær '1 V 

760 DATA... **###^ *»»•*.». ^ 

090 DATA. ^ ^ 

900 REM 

910 FOR 1 = 1 TO 0e SPRITEI f 0:NEXT 
920 F=3000:A=4 

930 M0VSPR3,202,60s MOVSPR 2,94,60sMDVSPR 1 ,-214,60: M0VSPR4,270,216e M0VSPR5,21 B, 1 
00 

940 SCNCLR 

950 COLOR 4,1:COLOR 0,leCÛLOR 5,2:C0L0R 1,2 

960 PR INT" —-—-4-44 HIH II HU •H’* 1 


970 PRINT" 
980 PRINT" 
990 PRINT" 
1000 PRINT" 
1010 PRINT" 
1020 PRINT" 
1030 PRINT" 
1040 PRINT" 
1050 PRINT" 
1060 PRINT" 
1070 PRINT" 
1080 PRINT" 
1090 PRINT" 
1100 PRINT" 
1110 PRINT" 


-f 4 
4 44 
4 44 
4 4 
4 44 
4 44 


4- 44 
4 4- 
4 - 


4- 4-4" 
4 4 
4 4 

4 4 


4 44 
4 4 


4 4 
44 4 

44 

4 44 
4 4 

44 4 
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1120 PR INT" -H-4 ++ ++ 

1130 PR INT" +++ -H- -+ ++ 

1 140 PR INT" -f 4 + 4 

1150 PR INT" 4 44 4 44 

1160 PRINT" 4 444 44 

1170 PR INT" 4 44 4 444 

1180 PRINT" 444 44 4 

1190 PRINT" 4 4 44 

1200 WINDOW 0,2,19,24,1 
1210 SLOW 

1220 SPRITE 1,1,2:SPRITE2,1,16:SPRITE3,1,8:SPRITE4,1,0:SPRITES,1,B 
1230 Y=94:X=60 :W=214:Z=60 

1240 FOR D=4000 TO 4036 STEP 2: I = INT <RND <1> *20 >: PRINT TAB(I)" ni . SOUND1,D 

,2:NEXT 

1250 MQVSPR1,Y,X :M0VSPR2,W,Z 

1260 I=INT(RND(1)*20)SPRINT TAB(I)" 

1270 IF J0Y(2)«=1 THEN X=X-Ai Z“Z-A 

1280 IF X >=246 THEN X-X-AsZ=Z“A 

1290 IF W=202 AND Z=60 THEN SPRITE3,0:F=F+100 

1300 IF JOY (2) =>3 THENY=Y+A: W-W+A 

1310 IF W=27B. AND Z=216 THEN SPRÏTE4,0: F=F+100 

1320 IF W=210 AND Z = 180 THEN SPRI TES, O: F=F+100 

1330 IF X<=51 THEN X=X+A:Z=Z+A 

1340 IF JOY(2)=5 THENX=X+A:Z-Z+A 

1350 COLLISION 2,1400:IF F<=0 THEN GOTO 1410 

1360 IF Y=102 ANDX>=228 THEN GOSUB 1520 

1370 COLLISION 2,1400:IF F<=0 THEN GOTO 1410 

1380 IF JOY(2)=7 THENY-Y-A:W=W-A 

1390 GOTO 1250 

1400 F=F-10iCOLOR 4,2:C0L0R4,1:RETURN 

1410 WIND0W0,0,39,24,1: FOR V=1 TO 5:SPRITEV,O:NEXT 

1420 PRINT"WiW»M*W»M»W*»»MM»»i*»»»I3AI'1E OVER":SLEEP 4 

1430 GOTO 910 

1440 WINDOWO,0,39,24,1 

1450 FOR 1=1 TO 0:SPRITEI,0:NEXT 

1460 PRINT" BRAVO!..." 

1470 PRINT" VOUS AVEZ REUSSI" 

1480 PRINT" VOTRE DOUBLE MISSION" 

1490 PRINT" AVEC"; :PRINTF;: PR INT"PO INTS" 

1500 SLEEP 4 

1510 GOTO 910 

1520 WINDOWO,0,39,24,1 

1530 F=F+3000:A=4 

1540 FOR B=0 TO 2 

1550 FORS=1 TO 8:SPRITES,Os NEXTS 
1560 FOR N=0 TO 2 

1570 FOR K«=2 TO 16:H=INT(RND(1)*16): C0L0R5,K:H=H+4:PRINT TAB(H):NEXT 
1580 NEXT N 

1590 WIND0W20,0,39,24,1 

1600 X=60:Y=74s W=196:Z=60 

1610 SPRITE1,1,2:SPRITE2,1,4 

1620 MOVSPR1,Y,X:M0VSPR2,W,Z 

1630 I=INT(RND(1)*20)SPRINT TAB(I)" 

1640 IF X=232 AND M=1 THEN GOTO 1440 
1650 IF JOY(2)“1 THEN X=X-A:Z=Z-A 
1660 IF X>=246 THEN X»X-A:Z = Z-A 
1670 IF JOY(2)=3 THENY=Y+Ai W=W+A 
1680 IF X<=51 THEN X»J(+A: Z = Z+A 
1690 IF JOY(2)=5 THENX^X+A:Z“Z+A 
1700 I=INT(RND<1)*20):PRINT TAB(I)" 

1710 IF X=232 THEN M=1 tWINDOWO,0,39,24:NEXT B 
1720 COLLISION 2,1400:IF F<=0 THEN GOTO 1410 
1730 IF Y=102 ANDX>=220 THEN GOSUB 1520 
1740 COLLISION 2,1400:IF F<=0 THEN GOTO 1410 
1750 IF JOY(2)=7 THENY-Y-A:W=W-A 
1760 GOTO 1620 
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COMMODORE 128 


PARA 

Un ciel noir de parachutistes ennemis qui tentent 
d'envahir la ville que vous êtes chargé de surveiller. La 
chance se trouve de votre côté puisque vous 
volez aux commandes d'un merveilleux hélicoptère qui hache 
menu menu les adversaires. Ne vous endormez pas, 
votre superbe engin n'est pas si facile à contrôler !... 


READY. 

5 REM PARA 
10 FAST 

15 FOR DI = 1 TO 3 
20 SCNCLR 

30 COLOR 4,1:COLOR 0,1:C0L0R 5,2 
40 FOR 1=0 TO 30 

50 JI=INT<RND<1)*32)SPRINT TAB(JI)" 

60 NEXT 
70 P=0 

BO FOR 1=1984 TO 2024:P0KE 1,160:NEXT 

90 pr int 1 ". : : : : : : : : ~ : : : : : : : : : — ■ : 

100 Q=30:W=100 

110 N=320 

120 SPRITE1,1,2 

130 A=200:S=172:T=220 

140 SPRITE2,1,2,0,1,1:SPRITE3,1,2,0,1,1:SPRITE4,1,2:SPRITE5,1,3 
150 1=55 

160 D=INT <RND <1)*320)+1:H=INT(RND<1)*220) 

170 SLOW 

1B0 M0VSPR1,Q,W:M0VSPR5,N,H 
190 M0VSPR2, S, A : M0VSPR3-, T, A ï MOV SP R 4, D, I 

200 PRINT"tfSCORE :"; P: PRINT"TEMPS : H ;C 

201 PRINT"#" SPRINT SPC ( 16)''STASE" ; DI 
210 1=1+1:N=N-8 

220 IF BUMP(1)=17 THEN S0UND2,2321,3,1 : GOTO 400 

230 S=S-2:T=T-2 

240 IF JOY<2)=1 THEN W=W-2 

250 IF BUMP(1)=9 THEN GOTO 330 

260 IF JOY(2)=3 THEN D*D-5:S=S-5:T=T-5:S0UND3, 253,10,1,234,4535,3 

270 IF N<=-20 THEN H=INT(RND(1)*220):N=320 

280 IF JOY(2)=5 THEN W=W+2 

290 IF I>=175 THEN GOTO 400 

300 IF JOY (2) *=7 THEN D=D+2: S=S+2: T=T+2 

310 C=C+1 : IF 0=300 THEN GOTO 400 

320 GOTO 1BO 

330 SOUND1,1947,3:SPRITE4,0:1=55:D=INT(RND<1)*320)+1 :M0VSPR4,D,I :SPRITE4,1 :P=P+1 
00:1F P>=1200 THEN GOTO 350 
340 GOTO 280 
350 SCNCLR 

360 FOR G=1 TO B:SPRITEG,0:NEXT 

370 PRINT M :»WNNiWfiNNNN BRAVO , VOUS AVEZ SAUVEZ LES VILLES EN TUANT LES PARACHUTI 
STES ENNEMIS... 

380 PRINT M «***»*rÆ)US AVEZ " ; : PRINT'TîT'P; : PR INT" JOINTS" 

390 SLEEP 4:RUN 

400 FOR VC=1 TO BsSPRITE VC,0:NEXT VC 
410 SCNCLR 

420 PRINT ,, :iWN«WiMN»Ws«*M**M*IVOUS AVEZ PERDU (E) " 

430 SLEEP 4 
440 NEXT DI:RUN 








READY. 


READY. 

3 REM SPRITE PARA 
10 FAST 

20 FOR T=1 TO 1 
30 A$="" 

40 FOR G=0 TO 20 
50 READ B* 

60 IF LEN(B$><24 THEN B$=B$+"." 

70 FOR 1=0 TO 2 
00 A=0 

90 FOR J=0 TO 7 

100 IF MID^(B$,I*0+J+1 1 1)="*"THEN A=A+2T<7-J> 

110 NEXT J 

120 A*=A$+CHR$<A> 

130 NEXT I 
140 NEXT G 
150 SPRSAV A*,T 

160 DATA. 

170 DATA. 

100 DATA. 

190 DATA. 

200 DATA--..*******************. 

210 DATA**.*. 

220 DATA***.********. 

230 DATA***..********..*..***... 

240 DATA.************..********. 

250 DATA.****** . ******** . 

260 DATA.********** * . * 

270 DATA.. 

200 DATA. 

290 DATA. 

300 DATA. 

310 DATA. 

320 DATA.. 

330 DATA. 

340 DATA.,. 

350 DATA. 

360 DATA... 

370 FOR T=2 TO 2 
300 A$="" 

390 FOR G=0 TO 20 
400 READ B$ 

410 IF LEN <B$)<24 THEN B$=B$+ M ." 

420 FOR 1=0 TO 2 
430 A=0 

440 FOR J=0 TO 7 

450 IF MIDS(B$,I*0+J+1,1)= M *"THEN A=A+2t<7-J> 

460 NEXT J 

470 A$=A$+CHR$<A) 

400 NEXT I 
490 NEXT G 

500 SPRSAV A$,TtSPRSAV A$,3 

510 DATA. 

520 DATA. ..***** . . 

530 DATA.*_ 

540 DATA.*_ 

550 DATA.****. *.... 

560 DATA. *. . *.***. ..*.... 

570 DATA.****... *.*...*.... 
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500 DATA.*..*...***...*.... 

590 DATA*****...**...*.*...*.... 

600 DATA.*..*...**...***...*.... 

610 DATA*****...**...*.*****.... 

620 DATA....******************** 

630 DATA********...***********.. 

640 DATA************************ 

650 DATA*****..**»*******...**** 

660 DATA*****.•*********.....*** ^ 

670 DATA************************ 

690 DATA..****.****... IM 

700 DATA.******.******„. fcp 

710 DATA. jS- 

720 FOR T=4 TO 4 
730 A$="" 

740 FGR G=0 TO 20 V- 

750 READ B* Y 

760 IF LEN (B$) <24 THEN B$=B$+”." 

770 FOR 1=0 TO 2 
700 A=0 

790 FOR J=0 TO 7 

000 IF MID$ <B$,I*8+J+l,1)="*"THEN A=A+2T<7-J) 

010 NEXT J 

020 A*=A*+CHR$(A) 

030 NEXT I 

840 NEXT G a 

050 SPRSAV A*, T / 

060 SLOW )f 

070 DATA. V 

080 DATA. 

890 DATA. 

900 DATA.*****. 

910 DATA.*******. 

920 DATA.*********. 

930 DATA.*..*..*. 

940 DATA......**.**. 

950 DATA.*. 

960 DATA.***. 

970 DATA........*..***..*. 

980 DATA. *..*..* . 

990 DATA. *****. 

1000 DATA.*. 

1010 DATA.***. 

1020 DATA.*.*. 

1030 DATA.*.*. 

1040 DATA.*.*. 

1050 DATA. 

1060 DATA. 

1070 DATA. 

1080 FOR T=5 TO 5 
1090 A$="" 

1100 FOR G=0 TO 20 
1110 READ N* 

1120 IF LEN <N$) <24 THEN N*=N*+ M ." 

1130 FOR 1=0 TO 2 
1140 A=0 

1150 FOR J=0 TO 7 

1160 IF MID$(N$,I*8+J+1,1)=”*"THEN A=A+2t(7-J) 
1170 NEXT J 




Ci 
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1100 

1190 

1200 

1210 

1220 

a*=a*+chr*<a> 

NEXT I 

NEXT G 

SPRSAV A*,T 

DATA. 


1230 

DATA. 



1240 

DATA. 



1230 

DATA. 



1260 

DATA. 

. ..****. 


1270 

DATA. 

. . *#***■». . . . 


1280 

DATA. 

. **##****. . . 


1290 

DATA...... 



1300 

DATA. 

. #*##****... 


1310 

DATA. 

. . ***#*#. . . . 


1320 

DATA. 

• ■ a ■ fl • ■ ■ 


1330 

DATA. 



1340 

DATA. 



1350 

DATA. 



1360 

DATA. 

■ ■RflflflflfltfflflB 

* 

1370 

DATA. 

■ ■■■••■««•va 


1300 

DATA. 



1390 

DATA. 



1400 

DATA. 



1410 

DATA. 



1420 

DATA. 



1430 

!| 

DLGAD"PARA 

ii 



COMMODORE 128 


TANKS 

Aux commandes d'un Mig 25 à triple propulseur et à 
laser Argon, vous vous trouvez pris au piège par une armée 
de chars ennemis qui veulent votre perte. Ne vous 
laissez pas détruire et profitez-en pour les anéantir ! 


READY. V 

% 

READY. 

5 REM TANKS 
10 FAST 

20 FOR T“1 TO 1 
30 Mm»» 

40 FOR G=>0 TO 20 
50 READ B* 

60 IF LEN <B$) <24 THEN B*=B*+*'. " 

70 FOR I»0 TO 2 
00 A=0 

90 FOR J=0 TO 7 
100 IF MID$<B$ f I*B+J+1,1)= ,, *"THEN A=A+2t(7-J> 
110 NEXT J 
120 AS=A$+CHR*<A> 

130 NEXT I 
140 NEXT G 

































150 SPRSAV A*,T 

160 DATA... 

170 DATA. 

180 DATA.-. 

190 DATA... 

200 DATA. 

210 DATA. ..**. . . * 

220 DATA. 

230 DATA.*******....**#*.*.* 

240 DATA....*..*********#**#.*.# 

250 DATA************##*#****..*. 

260 DATA.....#*******#**##..... * 

270 DATA.*. . .*. 

280 DATA.*.*. 

290 DATA....... *********. 

300 DATA. 

310 DATA. 

320 DATA. 

330 DATA. t... 

340 DATA. 

350 DATA. 

360 DATA. 

370 FOR T=2 TO 2 
380 A$="" 

390 FOR 0=0 TO 20 
400 READ B* 

410 IF LEN(BS><24 THEN B*=B$+".” 

420 FOR 1=0 TO 2 
430 A=0 

440 FOR J=0 TO 7 
450 IF MIDS<B*,I*B+J+1,1)«"*"THEN A=A+2t(7-J> 
460 NEXT J 
470 A$=A$+CHR$(A) 

480 NEXT I 
490 NEXT G 

500 SPRSAV A* f Ta SPRSAV A$,3 bSPRSAV A$,4 

510 DATA... 

520 DATA. 

530 DATA. 

540 DATA. 

550 DATA. 

560 DATA. 

570 DATA. 

580 DATA. 

590 DATA.. 

600 DATA. 

610 DATA. .....* . 

620 DATA.*. 

630 DATA.*. 

640 DATA. ..*****. 

650 DATA. ..**#**. ********** 

660 DATA.******♦.„.. 

670 DATA.***********. 

680 DATA....***************. 

690 DATA. 

700 DATA..•.***************. .... 

710 DATA. 

720 FOR T=5 TO 5 
730 A$="" 

740 FOR 8=0 TO 20 
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750 READ B* 

760 IF LEN<B*><24 THEN B*-B*+"." 

770 FOR 1=0 TO 2 
780 A=0 

790 FOR J»0 TO 7 

000 IF MID$<B$, I* 8 +J+l , D-'^'THEN A=A+2t(7-J) 

810 NEXT J 

820 A$=A$+CHR$<A> 

030 NEXT I 
840 NEXT B 
850 SPRSAV A*,T 
060 SLOW 

070 DATA. 

080 DATA. 

890 DATA. 

900 DATA.. 

910 DATA...% . 

920 DATA. 

930 DATA.* 

940 DATA. 

950 DATA. 

960 DATA. 

970 DATA. 

900 DATA.. 

990 DATA.**.**. 

1000 DATA.*****. 

1010 DATA. ..***. 

1020 DATA.***. 

1030 DATA.***. 

1040 DATA. . . ..***... 

1050 DATA.*. 

1060 DATA. 

1070 DATA. 

1000 FOR HJ=0 TO 5 

1005 SCNCLRsCOLOR 4,1 bCOLOR 0,1sC0L0R 5,2 
1090 SOUND 1, 3245,290,2,1342,2425,1,431 
1100 D=20 

1110 M0VSPR2,D,100:SPRITE2,1,16,0,1,1 
1120 D=D+1a IF D>=159 THEN D=D-1:G0T0 1140 
1130 GOTO 1110 

1140 COLOR 5,2sCOLOR 0,1:C0L0R 4,1 

1150 PRINT": 0 W 0 M 0 MPW 0 WPWP*»M»M**»»»*M**rrANKS M 

1160 SLEEP 4 t 

1170 M0VSPR2,100,230 

1180 FOR 1=1 TO 8 :SPRITEI,0:NEXT 

1190 SCNCLR 

1200 COLOR 4,1:COLOR 0,1:C0L0R 5,2 

1210 FOR 1=0 TO 30:K®INT(RND(1)*39): PRINT TAB(K)".":NEXT 

1215 PRINT"j5l“ : PR INT M — 

1216 PR INT" i*1" : PRI NT " — 

1217 PRINT"ieW" ; SPC (16) "STAGE" 5 HJ 
1220 Z=500 

1230 FOR 1=1984 TO 2024:POKE 1,100:NEXT 

1240 S= 100 : D=230 : F» 140 : G=»230 : U= 100 : I =230 : Y= 100 : X = 100 : N= 100 : M= 100 
1250 SPRITEI,1,2:SPRITE2,1,16,0,0,0:SPRITE3,1,16:SPRITE4,1,16 
1260 SOUND 1,3245,32767,2,1342,2425,1,431 
1270 SPRITES,O:M=100 

1200 MOVSPR1,Y,X: MOVSPR2,S,D t MOVSPR3,F,G:M0VSPR4,U,I:M0VSPR5,N,M 
1290 PR INT" iïW^OINTS a " ; C : PR I NT " TEMPS " ; Z 
1300 S=S+2:F=F+2:U=U+2:Y=Y-4:N=N-4 
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1310 Z=Z~1: IF Z<=0 THEN 1400 

1320 IF JÜY (2) =128 THEN SPRITE5,1,5: (1=11+2 

1330 IF BUMP(1)=18 THEN SPRITE2,0: OC+lOOO:GOTO 1270 

1340 IF JOY <2)0120 THEN GOTO 1270 

1350 IF BUMP(1)=20 THEN SPRITE3,0:OC+lOOO:GOTO 1270 
1360 IF M>~230 THEN GOTO 1270 
1370 IF C=3000 THEN GOTO 1460 

1300 IF BUMP(1)=24 THEN SPRITE4,0:C=C+1000:GOTO 1270 
1390 GOTO 1200 
1400 SCNCLR 

1410 SOUND 1,53245,0,2,1342,2425,1,431 
1420 FQRQ=1 TO 8sSPRITEQ,0:NEXT 

1430 PRINT"WiIfl«PiiWWBW»«ii«WiMi»»l GAME OVER !!!..." 
1440 SLEEP 4 
1450 RUN 1000- 
1460 SCNCLR 

1470 FOR A=1 TO BsSPRITEA,0:NEXT 

1480 PRINT"M«PMiJ BONUS 10000 

1490 PRINT" VOUS AVEZ «13000S POINTS" 

1500 SLEEP 4 

15iO NEXT HJ :RUN 1080- 

READY. 


COMMODORE 128 


BANK 

D'un côté de l'autoroute, vous. De l'autre, la banque 
qui regorge d'argent facile à gagner. La circulation est 
intense, il serait trop bête de se faire écraser avant 
d'atteindre le but ! Parvenu de l'autre côté, il vous faudra 
soudoyer le balayeur pour qu'il vous révèle le numéro 
du coffre. La fortune vous sourira-t-elle aujourd'hui ? 


READY. 


1999 

REM BANK 





2000 

FOR 1=1 

TO 8 :SPRITE 

1,0s NEXT 


2010 

C0L0R4,0 

î COLORO 

,12 



2020 

R=10000: 

G=1 




2030 

SCNCLR 





2040 

PR INT "Tl 

sr 




2050 

PRINT" 

ET « 

BANQUEHsl RsüEMEl HsFRANCEriSl 

'm «si 

2060 

PRINT" 

ET 


’BI IIEI 

wr 

2070 

PRINT"» 

Eli 1 r 


■ 1 1 1 1 1 1 1 1 » i 1 ■■ «a 

Mh II 

2000 

PRINT" 

sra 


■ * i 1 1 1 ■ 1 1 » ■ '■ «a m n 

2090 

PRINT" 

El-rCl 


■-rM H-*-! *m iR 

«El 9m" 

2100 

PRINT" 

sra 


■-B - m-rn-m 

KSI Si" 

2110 

PRINT" 

SW1 


■-tK - *rCI ■ aHi-rB 

R El Kl 

2120 

PRINT" 

El S 1 r 

1 1 i 1- i - 

t-B 1 i m 

K El Kl" 


2130 PR INT" flSK N \ \ \ \ \ \ N \ \ \ \ \ \ \ \ \ \ \"; 
2140 PR INT" 

2150 print"Sssi i i i i ~ r i i—i i ■ i— i —i—i—r~r~r~i i i "; 

2160 F0RI=1T04 
2170 PRINT"BSl 


B" ; s NEXT 






NEXT 


— j 

\ H"; 


2180 PR INT"* fl 
2190 FQRI =1T05 
2200 PRINT"*a 

2210 PRINT"** \ \ \ \ \ \ S \ \ \ \ \ 

2220 COLLISION 2,2400 
2230 MOVSPR 1,100,150 
2240 MOVSPR 2,100,195 
2250 SPRITE 1,1,4,0,1,1 
2260 SPRITE 3,1,4,0,0,0 
2270 SPRITE 2,1,4,0,1,1 
2200 MOVSPR 1,90#15 
2290 MOVSPR 2,270#7 
2300 Y-310!X=232 
2310 MOVSPR 3,Y,X 
2320 IF JOY (2) = 1 THEN X=X-4 
2330 IF Y=146ANDX=10B THEN GOTO 2440 
IF X<=100 THEN X=X+4 
IF JOY (2) «=3 THEN Y*Y+4 
2360 COLLISION 1,2410s IF R<=0 THEN GOTO 2020 
2370 IF JOY(2> =5 THEN X=X+4 
2380 IF JOY(2)=7 THEN Y=Y-4 
2390 GOTO 2310 
2400 RETURN 

2410 FOR 1=1 TO lOcCOLOR 4,IcNEXT 
2420 R=R-1000:COLOR 4,8:RETURN 

2430 SCNCLR:SPRITE 3,OsSPRITE 1,0:SPRITE 2,0:MOVSPR 4,120,120:MOVSPR ï 
OVSPR 3,120,120 

2440 MOVSPR 1,90#0:MOVSPR 2,270#0:FOR1=1TO 0:SPRITEI,O:NEXT:SCNCLR 
2450 COLOR 0,1:COLOR 4,1 
2460 FOR 1=1 TO 0 
2470 PRINT-BZH-H- 
2400 NEXT 


2340 

2350 


2490 PR INT" tf-H-r 
2500 PR INT" fl-H-r 


2510 PR INT" Sli- H 
2520 PR INT "tH-S-*- 


2530 PR INT" Sh- 
2540 PRINT" Shr- 


2550 PR INT" a i 1 .-*■ 


2560 PRINT" a i 
2570 PRINT" ai 1 


2580 PRINT" a- H . 1 
2590 PRINT" a i * i 1 


2600 PRINT" Sh-*- 
2610 PRINT" Ch-"- 


2620 PRINT" a. H - * 
2630 PRINT" ai «- r * 
2640 PRINT" a-T L H- 
2650 PRINT" a-.-*-T L 



ah 

ah 

«h 

ah 

ah 

ah 

ah 


ah 

ah 


ah 

ah 

ah 

ah 


ïhr- 1 - 

ap 
an- 
ah^ 
an- 
an- 
ah^ 
a h- 

ÜH- 

ah^- 

ElP 

:IP 


2660 PRINT" a . » i 1 i ■ »- " »* r - r -* » * i ■ i « . » i— i » . -I- 1 * ■ -t- 

2670 SPRITE3,1,2,O,0,0,O 

2600 MGVSPR5,156,172:SPRITE5,1,2,0,0,0,0 

2690 Y=322:X=120 

2700 MOVSPR 3,Y,X 

2710 IF JGY(2)=1 THEN X=X-4 

2720 COLLISION 1,2790 

2730 IF JOY <2)=3 THEN Y=Y+4 

2740 COLLISION 2,2000:IF R<=0 THEN GOTO 2020 
2750 IF Y=150 AND X=128 THEN GOTO 2810 
2760 IF JOY(2)=5 THEN X=X+4 
2770 IF JOY(2)=7 THEN Y=Y-4 
2780 GOTO 2700 

2790 SPRITES,O :WIND0W3,20,13,21:SCNCLR:J=INT(RND(1)*100000):COLOR 5,: 
EEP 4:SCNCLR:RETURN 

2000 R=R-100:COLOR 4,2:C0L0R4,1tRETURN 

2010 INPUT "CODE";0:SOUND 1,6454,9,1,6548,6561,1,233 


, 120,120:M 


: PRINTJ: SL 








2620 CÜLÜR 4,1:C0L0R 0,1:COLOR 5,2 

2030 IF 0OJ THEN WINDQW0,0,39,24:FOR T=1 TO B: SPRITET ,0: NEXT: SCNCLRï PRINT ,, W*Wfl 

OVER ! 11 s SOUND 1 ,53554,4,1,4534: SLEEP 4: GOTO 2000 
2040 IF 0-J THEN FOR D=1 TO 0 :SPRITED,0:NEXT:WINDOWO,0,39,24:SCNCLR:SLEEP 4:GO 
TO 2060 
2050 END 
2060 SCNCLR 

2070 COLOR 4,1:COLOR 0,1:COLOR 5,2 
2000 MOVSPR 3,160,100 
2090 SPRITE3,1,2,O,1,1,0 

2900 PRINT"W«»I»lil»i»WN»lMW«»W»lP*H^OUS AVEZ GAGNER AVEC PR INT "WR; : PR INT" aPOI 

NTS" 

2910 SLEEP 4:GOTO 2000 
READV. 


READY. 

5 REM SPRITE BANK 
10 FAST 

20 FOR M TO 1 
30 A*= M " 

40 FOR 6=0 TO 20 
50 READ B* 

60 IF LEN<B*><24 THÉN Bt-eB**"." 

70 FOR 1=0 TO 2 
00 A=0 

90 FOR J=0 TO 7 

100 IF MID$(B$,I*8+J+1,1)= M *"THEN A=A+2t(7-J) 
110 NEXT J 
120 A*=AS+CHR$<A) 

130 NEXT I 
140 NEXT 0 
150 SPRSAV A*,T 

160 DATA. 

170 DATA. 

100 DATA. 

190 DATA. 

200 DATA.*. 

210 DATA.******. 

220 DATA. *....*.* .. . 

230 DATA.*.*. .*. 

240 DATA-- -*******************. . — 

250 DATA....******************.. 

260 DATA-....*****************.. 

270 DATA.****************. . . 

200 DATA.**.**. 

290 DATA.****. . . . ****. 

300 DATA.**.**. 

310 DATA. 

320 DATA. 

330 DATA. 

340 DATA... 

350 DATA. 

360 DATA-. . 

370 FOR T=2 Tü 2 
300 A$="" 

390 FOR 0=0 TO 20 
400 READ B$ 

410 IF LEN<B$><24 THEN 
420 FOR 1=0 TO 2 
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430 A=0 

440 FOR J=0 TO 7 

450 IF MIDS <B$, I*B+J+1 , 1>="*"THEN A=A+2t<7-J) 

460 NEXT J 

470 AS=AS+CHRS<A) 

480 NEXT I 
490 NEXT G 
500 SPRSAV AS,T 

510 DATA. 

520 DATA. 

530 DATA. 

540 DATA. 

550 DATA. 

560 DATA. 

570 DATA.***. 

580 DATA. *.*.* . 

590 DATA. *..*..* . 

600 DATA..*****************. 

610 DATA..****************** . . * . • 

620 DATA..****”»***********. 

630 DATA...***************. 

640 DATA.**.**. 

650 DATA....****....**** . 

660 DATA.**..**. 

670 DATA. 

680 DATA. 

690 DATA. 

700 DATA. 

710 DATA... 

720 FOR T=3 TQ 3 
730 AS="“ 

740 FOR G=0 TO 20 
750 READ BS 

760 IF LEN (BS) <24 THEN BS=BS+"." 

770 FOR 1=0 TO 2 
780 A=0 

790 FOR J=0 TO 7 

800 IF MIDS(BS,I*8+J+1,1)="*"THEN A=A+2T(7-J) 
810 NEXT J 
820 AS=AS+CHRS(A) 

830 NEXT I 
840 NEXT G 
850 SPRSAV AS,T 

B70 DATA.***. 

880 DATA.***. 

090 DATA.***. 

900 DATA.*****. 

910 DATA.*******. 

920 DATA....*..*.*.*.*.---* 

930 DATA....**..*****...*** 

940 DATA....***..***...***. 

950 DATA. ***..*...***.. 

960 DATA.***********.. 

970 DATA..*********** . . 

980 DATA. ********.... 

990 DATA.******. 

1000 DATA... 

1010 DATA.****. 

1020 DATA....... ******. 

1030 DATA. **..**..... 
























































1040 

1050 

1060 

1070 

ioao 

1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1100 
1190 
1200 
1210 
1215 
1220 
1230 
1240 
1230 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1300 
1390 
1400 
1410 
1420 
1430 1 


DATA.***. . ***. 

DATA.**. .. . **. . 

DATA. . . . , **..**. 

DATA. . . . **.**. 

FOR T=5 TO 5 

Â$=" " 

FOR 0=0 TQ 20 
READ N$ 

IF LEN <N$)<24 THEN N$=N$+"." 

FOR 1=0 TO 2 
A=0 

FOR J=0 TO 7 

IF MID$ (N$, I*8+J+1,1)="*"THEN A=A+2t(7-J> 
NEXT J 

A*.=A*+CHR$<A> 

NEXT I 
NEXT 0 
SPRSAV A$,T 
SLOW 

DATA. 

DATA. 

DATA. ..... *******... 

DATA.***. 

DATA.*****. 

DATA. . *.*. *. 

DATA. .*.*.. 

DATA..*. 

DATA. . **. . . . ***... 

DATA..***..*****. 

DATA..*.*********. . .. 

DATA..*..♦*.***. **. 

DATA..**....***.**.... 

DATA..*.*....* 

DATA. 

DATA. 

DATA. 

DATA. 

DATA. 


** 


*** ... *** ... ** ........ 

.*..•**■**«.....a..... 

***..**..**. .. 

***.*♦. . . *** . 

***. . **. . . ** . 

DATA.**♦**..**..***. 

DATA.*...*...**. 

DLOAD"BANK" 



EXL 100 

THREAT STAR 

A bord de votre vaisseau spatial, vous disposez 
d'une centaine de munitions pour détruire les engins ennemis. 

A chaque objectif atteint, 5 000 points de gain, mais 
chaque tir vous coûte huit munitions. Si vous arrivez à vous 
en sortir vivant, vous passerez au deuxième tableau 
avec mille points par munition restante. Bonne chasse ! 


100 ! *************** 

102 ! * THREAT STAR * 
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104 ! * TILT/CHAGNY * 

106 I * Jeu ARCADES * 

108 i ***#*#*#****#*# 

110 FL 1 $*"83AF51 3928272&BE4452A37EE5F8EC014DEE75E36B540E8959856F39C5D11 F3ABEÜ4654 11 
112 FL2$= ,, C7FEA2F8E2CO5DEEB3E2B38574DD37QCCF1ÊD2GD3F333E5B08Ü4F9F2FF" 

114 FLI4=FL..14iFL2* 

1 16 BU 4= "2SÎD5AA4C35E!39094E593235&E5CC2E4D704AB72D242D3008E<‘48B1 F71 33BD5332GDA85" 

118 04="2A£C1 2A00D0D2F254EEs4014CGA581 3C33496AE50GCG525AË2E5A1 3AEB5ACG4D395B302" 
120 N4="B1949424AB5385DB31922DCE9EA34AC983BABG02FCFFFF" 

122 J4 = "5GE!l4C32A8980ED5CA59A1334F75CB340A28505D01D97625700B1 B53359CC4C.05323" 

124 I #«*****#**#*»*#* 

126 ! « PRESENTATION « 

126 ! * GRAPHIO/SONO * 

130 > **************** 

132 CALL PÜKE (50920, 162,5,45,162, 13G,45,10) sCALL EXEiX < 50320 > 

134 CLS " WBB" 

136 CALL CD LO R C "OYBL " > 

138 FOR I~£ TO 19 

140 CALL COLOR( "OYBL' 1 ) : IF < 1/2 ) - *NT ( 1/2 ) =0 THEN CALL COLOR<"ORBL"> 

142 LQCATE (I,<I-5>«2>:PRINT "**TTIILLTT*#" 

144 CALL SPEECH("L,"a"007CCB37BABG02FC") 

14G NEXT I 

148 FOR 1-1 TO 21 : PR INT : PAUSE «1:CALL SPEECH ( "L. r " X "0D7C5E5EBAB602FC" > : NEïXT I 
150 L$="TiIt" 

152 CALL COLOR< "ORB" ) 

154 FOR 1=2 TO 21 

156 CALL SPEECH < "L. , " X"0D7C4321BAB602FC" ) 

158 LQCATE (1,1)SPRINT RPT4(L4,10) 

ICO NEXT I 

1G2 CALL COLOR<*'1YBHL M ) 

164 LOCATE <4.,4):F’RINT "CCHHAAGGNNYY " 

IGG CALL COLOR<"1YBHL") 

1G8 LOCATE <5,4>:PRINT "CCHHAAGGNNYY" 

170 CALL COLOR<"1RBHLF") 

172 FOR 1-1 TO 2:CALL SPEECHC"L,"iBU**J4Î04&N4):PAUSE «4:NEXT I 
174 LOCATE <6,8>:PRINT "TTIILLTT" 

176 LOCATE <7,8>:F*RINT "TTIILLTT" 

178 CALL COLOR("OYB") 

180 DE 4="APPUYEZ SUR UNE TOUCHE POUR LA SUITE. 

182 CALL COLOR("OYB"):LQCATE <1„1):DS4=SEG4<DE4„1,38):PRINT " ";OS$î" " 

184 LOCATE (21 r 1>: DS4=SEG4(DE*,1 r 38>: PRINT " ";DS4;" " 

10G 0E4 c =SEG4 <DE4,2,40) &SEG4 (QE4,1,1): PAUSE •04tCALL KEY1 (A,B>: IF BOO THEN 202 
188 CO SU E5 194 
130 GOTO 182 

132 CALL COLOR("0"£S 14 ):LOCATE CL,4):PRINT "CCHHAAGGNNYY":RETURN 

134 S14-"bBHL" :L—4 :G0SUB 192 r SI 4="bBHL" : L=5 : GOSUB 192 : S14 s ="MBHL" : L=4 

136 GOSUB 192îS14="ME:HL":L=5:G0SUB 192 s SI 4="GBHL " : L=4 : GOSUE» 192 : S1 4= "GBHL " 

198 L^S:GOSUB 192:S14="YBHL":L=4:GOSUB 192rSI•«"YBHL":L=5:GOSUB 132 
200 SI*="CBHL":L=4zGOSUB 192 : SI 4="CBHL":L“5:GOSUB 192:RETURN 
202 OIM 04(20),B4<10) 

204 S54= "04D87F.:G2021 DF080052CE001 0D70E0FF 01 "sCM«39 

20G EX14-"0BF0347B015EG52EC0FC33047Q9A938040B212E055G6003CCA744050390GF02A4B0" 

200 EX24—"081GG4AC000259G2BAOF83405E4902G80EC2A1990730G0172CB20408CEEFF" 

210 EXF’4=EX14 8.EX24 

212 SI 4="0E68 3FC7O31EFG4O04 3CE0010F78C0021GB040042CG0010F5840031AD0600GFE0B" 

214 S24="07502A73031 E:C8400G3210010F58400181SG6AC001253G1BAOF83403E430AG0101E49C" 
216 S34*S24i"41010AFC3F" 

210 SG4” 11 0D3816C301E0E72C&8B4CBECB07D88AAGF33A2D041AAFGBDB4G407AFDAE3" 

220 S84="CEAA1EAAGAB7BE4A7CB8GADCG037C9E04BE87411B508C044302FE":S74=S81>XS64 
222 S94= "8702BBEDE>4BEî:D1 D3AFBDCD8907CD3ECF332C3F1G1B38FCD0A3B47C8A1CGC2921E35A5" 
224 SA 1 4 = "5A1FB57CBC2GA3CC44CC8ABA8E8E744G301C8BE520103471 G20C54A03243FA380‘‘ 

226 SA24 —"983G05107BA700Ei2ECG040F29D044B716B0031B7FF3F" : H0N4*=SA24XS34i"BABG02FC" 

229 DATA 30 r 00000000000000000000 r 110,82442C103OCOOOOOOOOO 

230 DATA 40 ,0000020303030307OFOC,103 r 000000000000FF181 GM 0 
232 DATA 41,181B3C7EFFFFFFE7E700,108,412234180C0300000000 
234 DATA 43,0O0O4OC0C0COC0EOF030,107,OOOOOOOOEOEOOOOOOOOO 
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23G DATA 100, 00000000030C18342241,106 r 02010101010101 01 0102 
238 DATA 101,181818FFOOOOOOOOOOOO,105,814200000000000042B1 
240 DATA 102 , 00000000C03018284482 , 104,40808000008080800040 

242 DATA 33 r 4122183C66FFDB7E24E7 r 33 r 3C5AFFFFDBDE:FFFF5A3C, 35,3C5A5AFFFFA59999A5A 

244 DATA 37,3C7EDB7E3C24244242FF,31,99E73CGGBDBD7E2442C3 

248 DATA 120, 10324-36E : J&F27353D3F3F , 121 , 0B433AD6FEE4ACBCFCF-C 

248 DATA 122,3F3F3E343763E3430101,123,FCFC7C2CECC6C6C28100 

250 DATA 103,000000070700000000,31,00221441142200000000 

252 FOR 1 = 1 TO 25 :READ CARA,CODE*:CALL CHAR(GARA,CODE*):NEXT 

254 NA*«=" "aCHR*(40>&CHR*(41 >4CHR*(43> X" " : P*=CHR* ( 90 ) : MD9*=CHR* ( 39 ) XP* 

256 MD1*=CHR*< 31 >XP*:MD3*=CHR*(33)XP*:MD5*=CHR*(35)XP*:MD7*=CHR*(37>XP* 

256 CL.S "RE:B" : CALL CF ( 12, 19, 1,82,66 ) : PRINT CHR* ( 120 ) XCHR* < 121 ) : LOCATE (13,19) 
260 PRINT CHR*(122)XCHR*(123>:CALL CQLOR<"OYBHL")sLOCATE (4,14) 

2S2 PRINT "TTHHRRF.EAATT": LOCATE <5,14):PRINT "TTHHRREEAATT" 

264 CALL COLOR<"OWBL")sLOCATE <7 r 1G>:PRINT "ssttaarr" 

266 CALL CF 7 < 1 , 4,0, 07,66 ) : PR I NT "«TILT«" : CALL CF < 1,30,0,90,66 > : PRINT "CHAGNY J" 
260 CALL CF<2,6,0,82,66):PRINT "Tilt" 

270 CALL CF 7 (20,30 +DF ,1 , 82 ,66> : PRINT " "XCHR*< 31 ) X" " 

272 CALL SPEECH("L,"XHON*) 

274 CALL CF(20,4♦DF,1,98,66):PRINT " "XCHR*(33)X" " 

276 CALL CF<1G,32 + DF,1,77,66) rF’RINT " "XCHR*<35) X" " 

278 CALL CF 7 < 1 7,10 + DF , 1,71 ,66 ) : PRINT " "XCHR*(37)X" " 

200 CALL CF<1G,3+DF,1,67,66)rPRINT " "XCHR*(39)X" " 

282 CALL CF< 22,7,0,77,66) :PRINT "Choix du niveau 1, 2, 3..." 

284 I «#■*****«*****»» 

206 ! * PROGRAMME * 

288 I « PRINCIPAL « 

230 ! **#**»» *»*«*«»«» 

232 CALL KEY1 (S ,T ) : IF T=0 THEN DF«=-DF + 1 s GOTO 270 

294 IF S <49 OR S>51 THEN 292 

236 IF S«=49 THEN DIF=1 

238 IF S™50 THEN DIF=4 

300 IF S=51 THEN DIF*2 

302 GÜSUB 330 :CM = 39 

304 CL S "WBB" :CALL HRON("B",12,9):B*< 1 ) =" " : B*< 3 ) =" " : B» < 5 ) =" " : E:* ( 7> =" " ï B* ( 9) =" " 
306 REPA-OxCALL CF<1,1,1,82,66):PRINT RPT*(MD1*,20)rCALL CF<3,1,1,77,66) 

300 PRINT RPT*(MD3*,20>:CALL CF(5,1,1,71,66):PRINT RPT*<MDÜ*,20):NX=17 
310 CALL CF <7,1,1,90,66 > : CM“39 s PRINT RPT* ( MD7* , 20 ) : CALL CF (3,1 , 1 ,67, GG ) 

312 PRINT RPT*(MD9*,20):CALL CF(21,NX,1,77,66):PRINT NA*:LOCATE (21,NX) 

314 PRINT NA*:R*-RPT*<" ",21):CALL CF(22,1,1,82,66):PRINT RPT*(CHR*(12),39) 

316 FOR 1=1 TO 20 

318 DH = INTRND (7) :EH=INTRND(7> : RH= 15- (DH+ l-ZH) 

320 D*(I)=RPT*(MD9*,PH>IMD1 * XMD1 * XRF’T* ( MD7*, EH ) XRPT* ( MD3* , 3 )XRPT*(M05*,RH> 

322 NEXT 

324 H=>INTRND( 20 ) : LOCATE (22,5) SPRINT SCORE 

326 NX=NX-(<A=123)«3 AND NX<31>+<<A=131)*3 AND NX>6) 

328 CALL CF(21,NX,1,87,66): PRINT NA* 

330 CALL COLORC'IYB")zLOCATE <11,1):U*‘=SEG* (D*(H),1,38):PRINT " "40*1" " 

332 CALL SF’EECH ( "L , " XS5* ) : EiT=1 NTRNP ( DIF ) z IF BT = 2 THEN GOSUB 374 

334 D*(H)=SEG*(D*<H>,2,40)XSEG*<D*(H),1,1):CALL KEY1(A,B):IF B«0 THEN 328 

336 IF A“32 THEN 338 ELSE 326 

338 CALL CF(22,1 ,1 ,66,66)sPRINT RPT*(" ",39):CM=CM-.4:CALL CF<22,1,1,82,66) 

340 PRINT RPT *(CHR*(12),INT(CM)): IF INT(CM)=0 THEN 388 
342 FOR 3>1 TO 5:CALL LINE("Y",(NX«8>*28,109,(NX«B)+28,171) 

344 CALL LINE("B",<NX«8)+28,109,<NX«8)+28,171) 

346 CALL SF’EECH ( "L XS1*> zNEXT I : GOSUB 352 
340 IF REPA«1 THEN 304 
350 GOTO 324 

352 TN»NX«3 zCALL. ECR < 11 ,TN r CA, C, F, J) 

354 IF CA**90 THEN 364 

356 SCORE=r>CORE+ <1 O0«(40-CA) ) : IF SCORE)5.E+05 AND DIF>3 THEN 468 

359 LOCATE <11,TN+1)zPRINT CHR*<91):F0R 1=1 TO SiCALL SPEECH<"L,"REXP*>:NEXT I 

360 LOCATE <CA-30,1>zPRINT B* < CA-30): B*(CA-30)=B*(CA-30)4" " 

362 IF B*(CA-30)=R*THEN CM = CM+10 :GOSUB 366 

3G4 RETURN 

3G6 FOR 1 = 1 TO SiCALL SPEECH("L,"XFLI*>:PAUSE ,4 :Ne:XT I 
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3G8 IF B*<1)>=R*AND B* < 3 ) >=R$AND B*<5 ) >»R*AND B*< 7 > >=*R*THEN 370 ELSE 372 
370 IF B*<9)>=R*THEN GOSUB 400 
372 RETURN 

374 IF Z<3 OR Z==0 THEN Z=45 

37G Z=Z-3:CALL LINE<"IT r Z m 0 r 171,Z*0„183) 

378 CALL LINE <"R",Zm8,171, Zm8 ,183) 

380 PAUSE .05 

382 CALL LI NE < "E"', ZmB, 171 , ZmB ,183) 

384 CALL SPEECH<“L,"&S2*>xIF <NX + 4)*0^Z»8 THEN 388 
336 RETURN 

388 CALL HROFFiCALL POKE<50320 r 1E2 r 5 r 45 r 162 r 13G f 45,10):CALL EXEC<50320> 

330 CLS "YYY"iPAUSE .2:CLS "BBB": PAUSE .2:CLS "RRR":PAUSE .2 
392 CL.S "WWW" sPAUSE .2: CLS "BBB"sPAUSE .2: CLS "RRR" r PAUSE .2 
334 LOCATE <5,10>:CALL COLOR<"OYB"): PRINT "Votre score s";SCORE 
336 CALL CF <22,12, 0,87,66) sPRINT "ENCORE ?.. Tapez CENTER3" : PAUSE: RUN 
338 ! 

400 CALL HROFF: CLS " Wbt:." : CALL COLOR < "OBB") sBB«31 :REPA«0 
402 CALL F’OKE < 50320,162,5,45,1 G 2,136,45,10) r CALL EXEC< 50320) 

404 FOR 1*3 TO 20xLOCATE (1,5) sPRINT RPT$(" " , 30) : NEXT x A» ! 5x B-15 

40G CALL SPEECH<"L,"&SG$X"BAB602FC">:CALL CF<22,1,1,38,38)SPRINT RPT*<" ",39> 

400 CALL CF <22,1 ,1 ,82,66) SPRINT RF'T*<CHR$< 12) , INT ( CM > ) s IF CM=0 THEN 388 

410 CALL CF<22,5,1,GG,82)SPRINT SCORE 

4 12 CALL CF<Ei+1 , A+ 1, 1,77, GG) SPRINT " "tCHR$< BB ) î" " 

414 U=A s 0=B 

416 A«A+2*INT <RN0*2>-1 
418 B-B + 2«INT < RNDm2)-1 
420 CALL KEY1<D1,D2> 

422 CALL SPEECH<"A,") 

424 B=B-2m<D1=130)*2m<D1=128> 

42G A=A-2m<DI=123>+2m<D1=131 ) 

420 IF Es<4 OR B >19 THEN 8-16 
430 IF A<G OR A>30 THEN A=9 
432 LOCATE <V+1,U+1)xPRINT " 

434 LOCATE <10,13):PRINT CHR*<100)&CHR$<101>tCHR*<102>sLOCATE <11,18) 

436 PRINT CHRtC 103 >1CHF<*< 104 ) *CHR$ < 105 ) *CHR*< 1 OG >&CHR* < 107 > i LOCATE <12,19) 

438 PRINT CHRi(108)&CHR$ <103)fcCHR$ <110) 

440 IF 01*32 THEN CALL SPEECH<"L,"iS3*> sGOSUB 448 
442 IF REPA«1 THEN GOTO 44G 
444 GOTO 406 
44G RETURN 

440 CALL CF- <22,1 ,1 ,B2,GE> SPRINT RPT* < CHR* < 12 > , INT < CM ) ) s IF INT<CM)==0 THEN 388 
450 CM=CM-3xL0CATE <N+1,30-N> 

452 IF < B>-8 AND B<-12)AND <A>*17 AND A<»21)THEN 454 ELSE 4G0 

454 SC0RE=SC0RE+5000:BB=BB+2iIF BB>40 THEN REPA-1sSCORE-SCOREi<INT<Ch)*2000) 

456 CALL SPEECH < "L ,"*EXP*> 

450 CALL CF<22,5,0,GG,82)SPRINT SCORE:IF SCORE>5,E +05 AND DI F>3 THEN 4G8 
4G0 RETURN 

4G2 ! *mm*m****»*-mm«# 

4G4 ! * COOE SECRET » 

466 ! MM MM MMtIM MMMM9ÉM 

4G8 CALL HROFF:CLS "BWW"sCALL CF<5,5,0,66,87)sPRINT "BRAVO..." 

470 LOCATE (7,5)sPRINT "Voici le codeLOCATE (9,5)zPRINT "Prenez un crayon." 
472 LOCATE <11,5)xPRINT "Le code ne reste qu'un instant." 

474 LOCATE <13,5)1PRINT "Taper la touche CENTERU"s PAUSE 

47G CALL COLOR<"ObWHL")sLOCATE <13,5)sPRINT "TTIILLTTBBRRAAVVOO" 

470 LOCATE <20,5)sPRINT "TTIILLTTBBRRAAVVOO"s PAUSE 5:RUN 
480 ! MMMMMMMMMMMMMMM 

482 ! mSOUS-ROUTINESm 

484 I MMMMMMMMMMMMMMM 


486 SUE: CF < L, C, T ,0 ,F ) 

480 LOCATE <L,C):CALL COLOR<STR$<T)*CHR$<0)SCHR$<F)>xSUBEND 
490 SUB ECR<Y,X,CA,C,F,J) 

492 DATA 130,193,3,208,14,130,193,2,208,13,124,82,121,72,1,14,73,0,13,222,1 
434 DATA 72,122,14,121,0,13,246,215,40,208,125,115,7,125,188,188,188,200,12 
496 DATA 115,3,127,188,188,208,124,115,7,124,215,40,208,123,10 
498 FOR 1=0 TO 54 sREAD AsCALL F*OKE <50176 + 1,A) s NEXT 
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\) M 



500 CAI..L POKE ( 121, Y r X) :CALL EXEC<5017£> 

502 CALL F'EEK (123,CA,C,F) : CALL PEEK< 127 r J) : SUBEND 
504 ! *«** ************** * 

50G ! * FIN LISTING * 

500 ! ******************* 


EXL 100 


CRAYON MAGIQUE 

Une palette de huit couleurs (option par barre d'espace), 
huit directions sélectionnées par les 
chiffres 1 à 9, vous permettent à peu de frais un très 
chouette programme-pictural. # pour avancer sans tracé ou 
gommer point par point. * pour tout effacer. 


! a*#**#**#**#***»** 

! * CRAYON MAGIQUE * 

! * pour ex I vision « 

! * EXL 100 * 

! * TILT/ CHAGNY J * 

! ****************** 

GOSUEii 610:!envoi a la présentation 
PF*-2 

CALL CHAR(1,"007E7E7E7E7E7E7E7E00") 

I ****************** 

! x DESSIN TABLEAU * 

! ****************** 

CLS "Bbb" 

C$="RGMCYbWB" 

X= 160: Y = 1 00 : D$="C‘' : XF=0 
CALL HRON<"B u , 1,13) i 

FOR 1=3 TO 3B STEP 5 / 

IF 1=3 THEN J*="R" // 

IF 1=0 THEN J*="G" 

IF 1=13 THEN J*="M H 

IF I=18 THEN A 

IF 1=23 THEN J$="Y" Æ 

IF 1=28 THEN J*="b M 

IF 1 = 33 THEN Ji="U" /Ai 

IF 1=38 THEN J*="B" 








IF 1=18 THEN J$="C" y y r 

IF 1 = 23 THEN J$= M Y" / 

IF 1=28 THEN J$="b" y 

IF 1 = 33 THEN J$="W" 

IF 1=38 THEN J*="B" 

CALL COL OR ( " 1 ,, fcJ$i"B" ) ^ 

LOCATE C20,1):PRINT CHR*<1) 

NEXT I 

! ****************** 

! * PROGRAMME * 

! ****************** 

CALL PL0T<D* r X,Y> 

CALL KEY1< XE,TE):A$=CHR$(XE): IF TE=0 THEN 260 
IF XE=42 THEN GOSUB 435:G0SUB 470:G0SUB 30O:GOTO 




XE>35 THEN 


3E0: GOTO 260 


XE=32 THEN CALL SPEECH<"L,"&"0E683FC7031EFBABG02FC">: GOTO 
XE<49 OR XE >57 THEN 2E0 
A*="8 n THEN A$="6 ": GOTO 315 
A*="4"THEN A*k"B”:GOTO 315 
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235 IF A*="G"THEN A4»=* , 4 n : GOTO 315 

300 IF A*="3"THEN A$="1"zGOTO 315 

305 IF A*= n 1"THEN A$="5":GOTO 315 

310 IF A*» M 5 M THEN A*= M G M 

315 F=-2* < VAL < A$ > < 5)-1 

320 A=XxB»Y 

325 U=VALCA$)+2*<F-1) 

330 ON U GOSUB 335 r 415 r 41O r 400 

335 D=-(X>0 AND X<319 AND Y>0 AND Y<1Q3> 

340 IF D cr 0 THEN CALL SPEECH( "L , " i"0D7C4FEA2BAE:GO2FC" ): GOSUB 425 
345 IF S=35 THEN CALL PLOT(“B"„A,B> 

350 CALL SPEECH(“L f "&"0D7C02FC") 

355 GOTO 255 

3G0 CALL SPEECHC"L f "4"0D7CFFFFBABG02FC n ) 

3G5 PAUSE * 4 

370 S=35:SS=SS+1iIF SS>1 THEN SS«OxS=0xRETURN 
375 RETURN 

3(30 IF XF>8 THEN XF=1 
385 D$=SEGi(C$,XF r 1) 

390 RETURN 
335 Y=Y+F 
400 X»X+F 
405 RETURN 
410 GOSUB 400 
415 Y«Y-F 
420 RETURN 
425 X=A:Y=B 
430 RETURN 

435 ! ****************** 

440 ! * POINTEUR CHOIX * 

445 ! * DES 8 COULEURS * 

450 ! ****************** 

455 CALL SPEECHC"L r "£"07DC5372BABG02FC n ) 

4G0 XF=XF +1 : IF XF>8 THEN XF=1:RETURN 
4G5 RETURN 

470 t ****************** 

475 ! « SELECTION SENS * 

400 ! * ET COULEURS. * 

485 ! ****************** 

490 FOR 1-3 TO 38 STEP 5 

435 IF 1 = 3 THEN J^= ,, R" 

500 IF 1=8 THEN J*=“G" 

505 IF 1=13 THEN 

510 IF 1=18 THEN J*="C" 

515 IF 1=23 THEN J$»"Y" 

520 IF I“20 THEN J$="b'‘ 

525 IF 1=33 THEN 

530 IF 1=38 THEN JH^'B" 

535 LOCATE <20,I> 

540 CALL C0L0RC"1 ,, &J$&"B"> 

545 PRINT CHR*C1> 

550 NEXT I 

555 IF XF-1 THEN 1=3: 

560 IF XF»2 THEN I=8x J*="G "2 W»="B" 

5G5 IF XF-3 THEN I=13x :W*= ,, B M 

570 IF XF=4 THEN 1 = 181 J$="C n : W*= ,, B n 
575 IF XF=5 THEN 1=23: J$="Y":W**"B" 

580 IF XF=G THEN 1=28r J$= ,, b" x W$» M B" 

585 IF XF=7 THEN I=33xJ*=“W"xW$="B" 

530 IF XF=8 THEN 1=38rJ*="B":W*="W" 
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595 

CALL COLOR( ,, 1"*W**J$&"F M > 



GOO 

LOCATE 

<20,1 > xPRINT CHR*<1> 



605 

RETURN 




610 

| 

****************** 



615 

! 

* PRESENTATION * 



620 

! 

*** *************** 



625 

CLS "BCb" 



630 

A=1z GO 

SUE: 635 



635 

6=1 :GQSUB 710 



640 

C= 1 : GOSUEî 710 



£45 

D=1rGOSUB 710 



650 

RETURN 




655 

j 

****************** 



660 

! 

k DESSIN MANETTE * 



665 

! 

****************** 



670 

CALL COLQR("1BY") 



675 

LDGATE 

(18,5): F’RINT "*EXL* CRAYON MAGIQUE *EXL*“ 


680 

CALL COLOR<"1YB") 



685 

LOCATE 

<20,5):PRINT "*100* TILT / CHAGNY J *100*" 


690 

FOR 1 = 

4 TO 15 



695 

CALL COLORC“IBB") 



700 

LOCATE 

<I,1£>:PRINT " 



705 

NE XT I 




710 

FOR 1 = 

0 TO 14 STEP 2 



715 

CALL COLORC"IBY") 



720 

FOR J» 

17 TO 21 STEP 2 



725 

S=S*1 r: 

5$=STR$ < S) 



730 

IF C=1 

AND S=12 THEN CALL COLOR <"1WRF") 



735 

IF S«10 THEN S*="*" 



740 

IF S«11 THEN S$ = ,, 0" 



745 

if s**i; 

2 THEN S**"#" 



750 

IF B=1 

THEN CALL COLOR<"1WRF"> 



755 

IF B-1 

AND S)3 THEN CALL COLOR <" 1BY" ) 



760 

IF 6 = 1 

AND S=5 THEN CALL COLOR<" 1 B Y") 



765 

IF D=1 

AND S=10 THEN CALL COLOR<" 1 WRF" > 



770 

LOCATE 

<I,J):PRINT S* 



775 

IF B=°1 

THEN CALL COLOR<"1WRF" > 



780 

IF 0 = 1 

AND S=10 THEN CALL COLOR <" 1BY" ) 



785 

NEXT J 




730 

NEXT I 




735 

IF A»1 

THEN CALL COLOR <" 1WRF" ) 



800 

IF C=1 

THEN CALL COLORC"IBY" > 



805 

IF B=»1 

THEN CALL COLORC"IBY") 



810 

LOCATE 

< 5 r 16 ) : F’RINT " ! " 



815 

LOCATE 

<5,21 ) : PRINT " 1" 



820 

IF 6=1 

THEN 840 



025 

IF C«=1 

THEN 845 



830 

IF D= 1 

THEN 850 



835 

LOCATE 

<2,12 ) : PRINT "* EFFACEMENT *": PAUSE 10: A» 

0 x S=0 


840 

IF 6=1 

THEN LOCATE <2,11):PRI^T "* ORIENTATIONS 

*":PAUSE 

3 :B=0:S=0 

845 

IF C=-1 

THEN LOCATE <2,11>:PRINT "* DEPLACEMENTS 

*": PAUSE 

9 :C=0:S = 0 

850 

IF D = 1 

THEN LOCATE <2,11>iPRINT "* COULEURS --> 

*":PAUSE 

3: 0=0 ; S = 0 

B555 

CALL COLOR("IBY"):RETURN 



860 

1 

****************** 



865 

j 

* FIN DU LISTING * 



870 

! 

****************** 
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EXL 100 


MUSICORGUE 

Voilà votre EXL 100 transformé en un orgue à quatre octaves. 
Un programme très court qui permet de se prendre pour 
Jean-Sébastien Bach et vous offre, en prime, une partition 
de Au clair de la lune afin de vous familiariser 
avec les touches musicales. A vos orgues, prêt, musique ! 


****************** 

* MUSICORGUE #. 

* pour ex I vision * 

* * 

* TILT/CHAGNY J * 

* **** ****** ** ***** 

***ÜECLARATÏONS*** 

CALL POKE < 50320,162,5,45,162,136/45,10): CAL.L EXEC ( 50320 ) 
DIM NT(128) 

CALL CHAR(33,"FFFFFFFFFFFFFFFFFFFF") t 

CALL CHAR(34,"08000800080808080008“) \ 

DI*«CHR*<33):TV*=CHR*(34) ^ 

FOR 1 = 1 TO 128:NT( I )=200 :NEXT ^ 

CALL POKE< 50688,165,8,6,10) ^ 

CALL POKE ( 491 56, 138,0) ^ \ 


10 ! 




13 ! 

****************** 

20 ! 

* 

AFFECTATIONS 

* 

21 ! 

* 

DE NOTES AUX 

* 

22 ! 

* 

TOUCHES POUR 

* 

23 ! 

* 

LE CLAVIER. 

* 

24 ! 

****************** 






DATA 193,87,188,83,176,88,1G8,68,158,67,149,86 
DATA 141,71,133,66,125,72,118,78,111,74,105,63 
DATA 193,46,188,76,176,47,168,77,158,43,143,42 
DATA 141,13,133,3,125,43,118,65,111,50,105,90 
DATA 193,63,108,52,176,02,168,53,150,84,143,83 
DATA 141,55,133,85,125,56,118,73,111,57,105,73 
DATA 133,80,188,35,176,126,168,95,150,60,143,62 
DATA 141,32,133,32,125,32,118,32,111,32,105,32 
FOR J=0 TO 3 
FOR 1=1 TO 12 
B=2"J 

READ A : A=A/E: : READ N 
NT ( N > =A 
NEXT I :NEXT J 
CLS "BCE'" 

CALL COLOR("1BW") 


***DESSIN PIANO**» 




LOCATE 

LQCATE 

LOCATE 

LOCATE 

LOCATE 


(14.2) 

(15.2) 

(16.2) 

(17.2) 

(18.2) 


LOCATE (19,2) 
LOCATE (22,2) 


PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PR INT 
PRINT 


"&DI$X" ,, 8DI$X" "IDItl" "XD:i:$X" "XDI**" "KTV* 

"101*1" "lDl*l" "RTU$&" " "101*1" " KD ï$ K" "RTO'H 

"toi*t" "*di*X" "xtv*x" "îd:i:$x" "*di*v "xdi^x" "xtv* 

"&TV*&" "tTV*V "KTV**" "XTV$K" "*TV**" "xm>£" "XÏV$ 

D"XTV$a ,, R"XTV*X"M"itTV$r , F ,, XTV*X ,, S 11 JLTV*X "L.""S" RTV$ 
0 M &TV$R"E ,, 1LTV*& ,, I ,, &TV$& ,, A ,, RTU*R"0 ,, RTV‘I>& ,, A ,, XTV* V l l "XTU* 
U"&TV$X ,, X" aTU1»î M C ,, XTU$X ,, U"XTD$X ,, E: , 'XTO$X ,, N M XTO$X ,, ? M iT'v'$ 
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53 

54 

55 

56 

57 

58 
53 
60 
61 
62 

63 

64 

65 

66 

67 

68 
63 

70 

71 

72 

73 

74 

75 

76 

77 

78 
73 
80 
81 
82 

83 

84 

85 

86 

87 

88 
83 

30 

31 

32 

33 

34 

35 


LOCATE <14, 
LOCATE <15, 
LOCATE <16, 
LOCATE <17, 
LOCATE <18, 
LOCATE <13, 
LOCATE <22, 
LOCATE <14, 
LOCATE <15, 
LOCATE <16, 
LOCATE <17, 
LOCATE <18, 
LOCATE <13, 
LOCATE <22, 
CALL COLOR< 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 
LOCATE <21, 


16):PRINT 
16) : F' RIN T 
16): PRINT 
16): PRINT 
16): PRINT “D" 
16):PRINT '‘0" 

16) :PRINT 
30):PRINT 
30):PRINT 
30):PRINT 
30)rPRINT 
30):PRINT "D" 
30):PRINT “0“ 

30) :PRINT "E" 
"OUB' 1 ) :l.OCATE 
3 ) : PRINT 11 S" 
3):PRINT "S" 

5> SPRINT "P" 

3):PRINT "G" 

11):PRINT 
13):PRINT 

17) :PRINT 
13):PRINT 
23)rPRINT 
25):PRINT 
27):PRINT ^ 

31) :PRINT "4“ 
33):PRINT "5" 
37):PRINT "7“ 
33):PRINT "B" 


SDI*S" ' 
SD I$S*' ‘ 
&DI*S" ' 
STV$S" 1 
&TV$&"R‘ 
STV*S"E‘ 
&TV**"/' 

SD I$S" ' 

' 

SDI*S n 1 
&TV$S M 1 
STV$S "R* 
&TV$ S"E 1 
aTV$S‘'R' 
<21,3) : 


XDI$S" ** 
&DI*S" " 
XTV$S" “ 
^TVH^'M" 
STV$ S" I " 
STV$ S" + " 

SD lit S" " 
" 

SDI$&" " 
&TU*i" " 
XTV$4"h" 
&TV*&"I" 
STV$S"T" 
PRINT "S 


£TV1»&" 1 
STV$S" ‘ 
RTV*S" 1 
STV*S" ' 
KTV*& M F' 
ST^$S ,, A’ 
ST01>S"*' 
STO$S" ' 
&TV*&" ' 
STVSS' 1 ’ 
STOliS" 1 
tTV*l"F' 
&TV*S M A' 
STV$S"Y' 


*DI*X" "U)ï îtS* 
SPI*X M "SDI$S' 
iDI$î" 

XTV**" M STV*S' 
STUîtS "S “ KTV$ S‘ 
*TV*X"D" 8TV*S' 
RTV*K ,, t M 4TV*S‘ 
SDI^S" “toi* 
XDIteS" "&0I$ 
&DI*X" •'SOIli 
RTV^S" "STV* 
STV*S ,, S ,4 STV$ 
S.TV$ S "0 " STV$ 
8TV1iX"U ,, STV* 


"SDI$ X" ' 
"SPI**" ' 
"SDI$S M ' 
" XTV$&" 1 
L ,, iTV^JL ,, S' 
A"S TV****!' 
A" STV1> S " Z ' 


8.TV* 

X.TV1> 
S TV* 
&TV$ 
XTV* 
X T il: 


"H" 

"JM 

11 L 11 
“M" 

H 0 If 
Il «| 14 
un il 


«««LA PARTITION*** 


36 

37 

38 
33 
100 
101 
1 02 

103 

104 

105 

106 
107 
100 


«•♦SAISIES NOTE«** 

CALL KEY1<A,U) 

ON ERROR 93 

IF U=-1 THEN 33 

IF U=0 THEN 104 

CALL P0KE<25B,NT<A),132):GOTO 

CALL F'OKE<259,45) :GOTO 93 


****************** 
* FIN PROGRAMME. « 
****************** 


33 


"/ / / 


/ 


E!" 


(2,30):PRINT "AAUU" 


LOCATE <2,4):PRINT 
LOCATE (4,4):PRINT 
LOCATE (6,4):PRINT 
LOCATE (8,4):PRINT " . . . 

CALL COLOR <"OBWL"):LOCATE 
LOCATE < 4,27):PRINT "CCLLAAIIRR" 

LOCATE <6,27):PRINT "DDEE LLAA" 

LOCATE (8,28):PRINT "LLUUNNEE" 

LOCATE (10,1)SPRINT RPT*<,40) 

CALL COLQR< “OBWLH" > :LOCATE < 11 , 11 >:PRINT “MMLJUSSIICCOORRGGUUEE" 
LOCATE < 12,11 ) :F'RINT "MMUUSSI ICGOORRGGUUEE" 


EXL 100 


CLAVIER BAVARD 

Pour apprendre à manipuler votre micro sans 
regarder vos mains. Sur le clavier vu de dessus, la touche 
à appuyer clignote, tandis que l'ordinateur 
prononce la lettre. Le score s'affiche en bas. 


3 

4 

5 

6 


******************** 
« CLAVIER BAVARD * 
« POUR EXL 100 * 

* CHAGNY JEAN. « 
******************** 
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7 ! **#*DECLARATIONS*w** 


8 ! 

3 DIM L*<26) 

10 DATA A,Z,E,R,T,Y,U,I,0,P,Q,S,D,G,H,J,K,L,M,W<X,C,Y,&,N,F 

11 DATA "Tab",A,Z,E,R,T,Y,U,I,Q,P,.,<,> 

12 DATA "Esc" , 1 ,2,3,4,5,6,7 ,8,9,0,2 , - 

13 DATA "Ct. I “ ,Q,S,D,F,G,H, J,K,L,M,@ , <- 

14 DATA ",W,X,C,V,B,N,?, . 

15 DATA ,, < , V , > , V ", u !%. / "Fct' , > '.<X!"/ 1 \ " , "LoK 

16 FÜR 1 = 1 TO 25 :READ L*(I):NEXT I:READ G% 

17 GOSUB 32 

18 GOSUB 54 
13 ! 

20 ! #*##JEUX ET SCORE**** 


21 ! 

22 RESTORE 11 :H*INTRND(26) :SUR=SUR+1 : IF SUR=21 THEN PRINT "FIN": PAUSE 

23 A$=L$(H):S$=A$:GOSUË 123 

24 PAUSE 3-(SUR/10) 

25 CALL KEY1(A,B):IF CHR$( A)=A$TH€N POINT=POINT +. 1 

28 CALL COLORC‘1 WB") :LOCATE (21,11): PRINT "POINTS : " ? PO INT SUR 

27 GOSUB 54 

20 GOTO 22 

29 ! 

30 ! ****PRESENTATION***w 

31 » 

32 F$=RPT*(CHR$(12),30) 

33 CLS "BCb" 

34 CALL COLOR("IBB") 

35 FOR 1=4 TO 17 
38 LOCATE (1,2) 

37 PRINT F* 

38 NEXT I 

39 CALL COLOR("IbBH") 

40 LOCATE (1B,3)iPRINT "Appuyez sur la touche prononcée.. 

41 LOCATE (19,3):PRINT "Appuyez sur la touche prononcée.*." 

42 CALL COLOR("IWBH") 

43 LOCATE (4,5) 

44 PRINT "EXL100" 

45 LOCATE (5,5) 

48 PRINT "EXL100" 

47 CALL COLOR("1bB"> 

48 LOCATE (5,13) 

49 PRINT "exelvision" 

50 RE TU R N 


51 

52 

53 


****AFFICHAGE*#*# 


54 CALL COLOR("1BY"> 

55 LOCATE 0,4) 

58 RE AO T$ 

57 IF T*=A*THEN CALL COLOR("1YMF") ELSE CALL COLOR<"1BY") 

58 PRINT T $ 

59 FOR J=0 TO 32 STEP 2 

60 LOCATE O,J) 

61 RE AD T* 

62 IF T$=A*THEN CALL COLOR("1YMF") ELSE CALL COLOR("1BY") 

63 PRINT T $ 

64 NEXT J 

65 LOCATE (7,5) 

66 RE AD T* 

67 IF T*=A*THEN CALL COLOR(“1YMF"> ELSE CALL COLOR("1BY") 

68 PRINT T$ 


69 FOR J=9 TO 31 STEP 2 

70 LOCATE (7,J) 

71 READ T$ 

72 IF T*=A*THEN CALL COLOR("1YMF") ELSE CALL COLOR("1BY") 


? : R U N 
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73 PRINT T$ 

74 NEXT J 

75 LOCATE (11,5) 

76 READ T$ 

77 IF T$ : -A$THEN CALL COLOR < " 1 YMF " ) EL SE CALL COLOR < " 1 BY " ) 

70 FRINT T * 

79 FOR J=3 TO 32 STEP 2 

80 LOCATE (11 ,J) 

01 READ T $ 

02 IF T$~A*THEN CALL COLOR("1YMF") ELBE CALL COLOR("1BY") 

83 PRINT T $ 

84 NEXT J 

05 LOCATE (13,7) 

88 READ T$ 

87 IF T$«A*THEN CALL COLOR < " 1 YMF" ) EL SE CALL COLOR < "1BY") 

88 PRINT T* 

09 FOR J=10 TO 30 STEP 2 
90 LOCATE <13,J> 

31 READ T$ 

92 IF T*=A*THEN CALL COLOR<"1YMF") ELSE CALL COLOR<"1BY") 

93 PRINT T $ 

94 NEXT J 

95 FOR J=9 TO 12 STEP 2 

96 LOCATE <15,J) 

97 READ T$ 

98 IF T$=A$THEN CALL COLOR < " 1 YMF» ) ELSE CALL COLOR < "1 BY" ) 

99 PRINT T$ 

100 NEXT J 

101 J=1 3 

102 LOCATE <15,J) 

103 READ T % 

104 IF T*=A$THEN CALL COLOR < " 1 YMF" ) ELSE CALL COLOR < "1 BY" ) 

105 PRINT T $ 

106 FOR J-27 TO 29 STEP 2 

107 LOCATE <15,J) 

108 READ T* 

103 IF T*=A*THEN CALL COLOR<"1YMF") ELSE CALL COLOR<"1BY"> 

110 PRINT T* 

111 NEXT J 

112 FOR 1=7 TO 13 STEP 2 

113 CALL COLOR("IWR"> 

114 READ T% 

115 LOCATE <1,35) 

116 IF T$==A*THEN CALL COLOR < " 1 YMF " ) ELSE CALL COLOR < “1 BY" ) 

117 PRINT T* 

110 NEXT I 

119 RETURN 

120 ! 

121 ! #**#SYNThcSE VOCALE*### 

122 ! 

123 T=ASC(S*) 

124 CALL VOIX(T) 

125 RETURN 

126 SUB VOIX<T) 

127 V0X=50286 :0=50296 : CALL POKE < VOX , 136,196,120,10,251,10 ) : GOSUE: 12 

128 CALL EXEC(VOX)rSUBEXIT 

129 T=T-64 rIF T>27 THEN SUBEXIT 

130 IF T<11 THEN 133 

131 IF T<21 THEN T=T-10:G0T0 134 

132 T=T-20 : GOTO 135 

133 ON T GOTO 139,143,150,155,162,167,173,180,186,183 

134 ON T GOTO 196,200,206,213,220,225,231,235,243,251 

135 ON T GOTO 255,250,265,276,282,292 

136 ! 

137 ! *#*#CODES POUR A a Z***« 

138 ! 
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CALL POKE<0+80,31,163,169, '18, 1 74,234,240 , 'I 30 , 1 2 , 245,255 ) :RETURN 
CALL POKE <D, 45,207, 193,11G , 114,194 , 172,179,122,1 79 , 242,3 , '173 , 'l 39 , 85 < 52 , 3 1 > 
CALL POKE <D +17,26, 218,149,119,177 , 242,238 , E7,1 56 , 163 , 1 18 , 168,1 78 , 85 , 1 4 ) 
CALL POKE<0+32,213,201,46,139,138,60,57,234,132,52,107,54,93,159,27.226) 
CALL POKE < 0 + 48,1E4,84,156,125,73,142,114,144,233,224,6,165,234,156,107) 
CALL POKE <0 + 63,155,147,156,137,30,60,26,122,242,161,83,105,106,168,41,153) 
CALL POKE <D + 79,118,37,233,36,135,40,17,97,116,140,164,89,184,154,201,33• 
CALL POKE(0+35,146,87,102,01,99,229,255,1):RETURN 

CALL POKE <0,163,154,110,216,205,23,173,114,202,84,235,152,53,202,234,213 
CALL POKE <0+1 6,42,38,202,172,70,217,163,163,233,212,217,101,42,133,86 ,'\ ri) 
CALL POKE <0 + 32,201,218,46,43,18,181,121,170,136,52,37,85,18,13,85,143,20) 
CALL POKE < 0+49,22,137,154,212,113,131,153,4,83,241,56,13,34,140,172,65) 
CALL POKE<0 + 65,151,198,185,34,112,100,1 10,26,233,56,91,105,241 ,178,75,87) 
CALL POKE<0+01,244,228,77,53,146,74,213,130,26,146,102,154,50,245,178,146) 
CALL POKE<0+37,100,215,200,48,102,255,15):RETURN 

CALL POKE < 0, 172,0,250,194,68,156,134.,44,136,73,84,237,229,114 < 239,223 « 00.; 
CALL POKE(0 + 17,116,103,40,108,60,37,181,143,161,240,230,82,132,122,231 , ,4) 
CALL POKE<0+33,229,65,94,169,80,239,152,133,212,155,73,37,234,21,35,231> 
CALL POKE ( D + 43,216,116,1 38, <106,11 , 140,102,1 33,33,122,206,1 46 >50,13,221 , v! > 
CALL POKE<0+65,208,232,196,255,15)xRETURN 

CALL POKE <0,4,200,180,172,137,53,138,168,100,237,143,53,207,236,203,179- 
CALL POKE<0+16,113,182,173,143,15,47,228,57,115,118,62,178,110,132,170,58> 
CALL POKE < 0 + 32,202,76,70,216,181,36,102,87,110,1 10,85,76,83,23,58,25,85 V 
CALL POKE<0+49,163,117,142,100,167,4,46,254,22,114,149,200,117,245,90,56' 
CALL POKE <0 + 65,33,162,82,62,27,174,20,123,83,143,170,00,13,0,120,255,7> 
RETURN 

CALL POKE<0,6,160,62,200,0,125,181,165,164,85,30,149,104,213:178,22,23) 
CALL POKE < 0+17,177,100,77,205,122,214,179,158,148,168,57,63, 26,125,84,151) 
CALL F‘0KE<0 + 33,236,6,163,104,65,61 ,91 ,232,212,136,149,253, 109,1 66,1 40,254 > 
CALL POKE(0+49,31):RETURN 

CALL POKE <0,45,25,38,21 6,202,33,142,162,163,226,234,24,57, '«70,18,212,21::) 
CALL POKE < D + 17,33,204,172,86,85,103,75,121,85,222,213,42,155,15,14,205) 
CALL POKE < 0 + 33,202,187,216,243,202,106,8,46,233,202,53,103,105,14,97,150' 
CALL POKE < 0 + 49,03,178,100,77,103,154,88,172,144,101,53,170,26,21,05,182 > 
CALL POKE<0+65,104,164,161,184,14,81,81,107,42,30,163,120,177,165,90,143) 
CALL POKE<0+81,161,230,136,52,238,30,161,138,21,253,168,167,25,9,122,8) 
CALL POKE<0+97,166,37,41,213,40,38,184,135,57,53,34,105,153,145,81,86) 

CALL POKE(0+113,255,31):RETURN 

CALL POKE<0,45,107,42,37,51,38,182,60,155,176,205,12,183,202,26,212,51,38) 
CALL POKE<0+18,202,42,154,77,174,168,40,33,107,133,36,183,35,143,184,42) 
CALL POKE<0+34,227,178,43,147,130,44,143,31,151,172,11,42,15,113,13,209) 
CALL POKE<0+50,12,24,178,133,1,147,150,43,160,171,14,14,48,96,243,50,6,76) 
CALL POKE<0+68,43,78,128,137,202,24,48,213,10,5,56,132,1,14,16,96,144,226) 
CALL P0KE(0+86,160,228,196,234,177,180,147,154,180,63,210,65,73,74,204) 
CALL POKE <0+1 01,156,237,142,216,201,222,155,167,5,60,33', 121,39,158) 

CALL POKE<0+115,222,244,254,31)iRETURN 

CALL POKE<0,6,-168,42,101,68,61,24,153,214,236,155,158,108,120,7.141 ,92) 
CALL POKE < 0+17,188,243,153,183,108,40,5,207,172,210,147,30,151 ,160,73,161 ) 
CALL POKE < 0 + 33,174,14,147,23,167,39,170,122,153,30,149,18,56,215,70,202) 
CALL POKE<0+49,251,127):RETURN 

CALL POKE<D,46,202,92,203,54,51,186,36,43,37,251,76,81,242,150,4*41,117) 
CALL POKE <0+1 0,115,41,122,1 12,132,210,46*61,175,121,74’, 1 55,13,164,1 77,77 ) 
CALL POKE<0+34,57,170,65,118,157,158,20,83,124,182,180,202,255,3):RETURN 
CALL POKE<0,44,171,208,213,139,23,185,178,193,52,74,93,20,154,198,67 « 84) 
CALL POKE<0+17,185,118,106,135,46,05,214,68,181,43,253,210,105,106,100) 
CALL POKE(0+32,171,247,181,73,221,146,33,166,108,167,52,35,21,75,30,237) 
CALL POKE (0+48,81,53,227,100,225,179,103,101,1 71,85,1 3,27,160 17 \ 115 < 118 ) 
CALL POKE <D + 64,181,203,157,175,116,24,71,205,156,220,130,30,21,171,178,76) 
CALL POKE<0+80,177,170,33,234,234,40,78,15,130,227,50,200,10,201<72,157) 
CALL POKE<0+36,173,144,247,255)xRETURN 

CALL POKE<0,164,230,108,162,50,38,148,70,146,202,72,175,72,30,137,43,53) 
CALL POKE <0+1 7,205, 17,105*, 21,201,172,140,88,163,61,206,83,63,28,183,180) 
CALL POKE < 0 + 33,225,112,73,236,90,242,10,51,41,169,75,42,18,233,148,128,52) 
CALL POKE<0+50,166,200,192,75,18,183,170,42,8,13,55,85,23,202,236,149,205) 
CALL POKE<D+67,204,113,41,75,37,43,246,250,165,42,137,93,48,155,173,178) 
CALL POKE<0 + 03,169,80,14,222,188,171,94,167,182,232,36,3,83,32,250,1 74) 


128 




271 CALL P0KE<D*39, 147,05,36,85 , 2B , 1 66 , 74 , 21,143,36 , 121,72 , 67 , 1 51 ,206, 1 4F, , 21 0) 

272 CALL POKE < D+11G , 184,118,163,1 03,30,1 37 , 203,22,14-3,182,1 85,64,45,159,61) 

273 CALL POKE < D*131,213,86,87,163,20,143,85,70,222,173,163,87,208,233,113,243) 

274 CALL POKE<0*147,155,86,200,138,200,201,170,02,112,38,135,56) 

275 CALL POKECD*153,45,50,161,171,20,42,36,47,37,130,32,233,255,3): RETURN 

276 CALL POKE<0,33,213,72,216,226,71,167,38,11,37,146,155,32,202,201,132,57) 

277 CALL POKE <0+17,54,106,73,54,39,230,220,42,57,224,33,2,167,42,85,161,26,0) 

278 CALL POKE<0 + 35,36,128,234,32,23,208,103,144,2,166,183,208,128,4,24,176,85) 
273 CALL POKE<0*52,135,4,36,32,1,1,12,125,166,172,165,206,66<180,01,00,83,00 > 

280 CALL P0KE<D+70,106,91,50,65,77,137,101,61,133,26,201,31,117,207) 

281 CALL POKE<D+84,143,203,133,255,7)iRETURN 

282 CALL POKE<0,202,33,136,212,115,156,164,112,3,22,235,11,93,134,195,136) 

203 CALL POKE < D +16,173,182,74,141 ,82,50,176,80,100,56,21,153,139,106,31 ,230) 
284 CALL POKE <0*32,152,148,142,132,34,185,37,3,100,133,60,138,102 < 83,60,172) 
205 CALL PÛKE<D*48,244,42,135,241,116,150,53,173,43,93,213,83,166,85,107) 

286 CALL POKE<0+63,183,167,173,174,204,163,107,223,246,182,171,104,33,197) 

287 CALL POKE <0*77,103,42,143,164,70/223,200,10,03,252,162,63,36,146,140) 

288 CALL POKE<D+92,241,170,65,141,72,133,8,156,170,84,133,106,0,0,4,160,107) 

283 CALL POKE<D*103,3,G,44,237,146,244,36,140,53,221,114,83,106,40,156,50) 

230 CALL POKE <0*125,163,73,202,145,1 78,53,200,4,33,30,142,240., 1 48 , i 70,132) 

291 CALL POKE<D+140,96,69,43,50,234 ,*255,3) iRETURN 

232 CALL POKECD,174,44,40,57,45,102,134,122,145,48,82,107,13,218,43 60,132)“ 

233 CALL POKE < 0*17,213,113,236,210,116,100,168,177,213,74,253,83,233,42,170) 

234 CALL POKE<0 + 32,56,245,31,148,169,154,227,82,103,233,210,218,143,87,211) 

295 CALL POKE<D+47,116,113,120,206,222,237,234,186,107,142,140,201,179,27) 

236 CALL POKE<0+61,221,48,73,97,62,105,183,174,41,60,48,220,71,145,i38,107) 

237 CALL POKE<0*77,183,236,178,200,74,165,77,178,42,18,43,140,52,142,170) 

238 CALL POKE <0 + 32,1 36,36,23,202,36,171,45,162,92,242-, 224,172,1 82,152,24 2) 

293 CALL P0KE<D+107,174,90,82,34,210,240,155,76,10,163,41,211,25,122,182) 

300 CALL POKE<0+122,166,237,33,36,201,203,185,182,133,80,37,4,235,22,94) 

301 CALL P0KE<0+137,212,254,31)iRETURN 

302 SUBEND 

303 ! 

304 ! ************************ 

305 ! * FIN DE PROGRAMME * 

306 ! **********************.** 

EXL 100 

FORMULE 1 


Le but de la course : établir le meilleur rapport chrono/ 
consommation/tours, et bien sûr éviter les autres 
véhicules. Vous contrôlez les divers paramètres grâce à 
quatre rectangles qui se remplissent (time) ou se vident 
(fuel) progressivement. Déplacements avec les flèches. 


1 ! ******************** 

2 ! * FORMULE 1 * 

3 ! * POUR EXL 100 * 

4 ! * CHAGNY JEAN♦ * 

5 ! ********************* 

6 ! 

7 ! ****DECLARATIONS**** 

8 ! 

3 MT*-"0E6BD2CD031 EF040043CE001 0F78CO02 1 6B040042C6001 OF584003 1 AD08006FE" 

10 EX$ = ,l 0BA021 63031B1 8ÔO0D1 El 33840073A1 081 OOF0301 EB1 0804804781- 0044200205" 

11 EX$=EX$£"70CEBD02110840704E118840043CE001OF78COO316BO0OO52C2OO103408002'* 

12 EX$=EX$£"14A0000528" 







13 CALL POKEC50920,162,5,45,162,136>45, 10>iCALL EXECC50320) 

14 FU=73:D=18 

15 DIM Z*<6),P*<9>,M*(G),C*(6) 

16 C$( 1 ) = "C 4 ' :C$(2) = "R“ :C*C3) = "M" :C*(4 > = ''Y" :C$( 5 )= ,, G" ïC*(6>='*b" 

17 MQ* ssM C72030C7031 EF040043CE0010F78C0021 6E:040042C60010F5840031 AD08006FE" 
10 V0* = " "&CHR*( 120) &CHR*( 121 ) &CHR* ( 1 22) &CHR$ ( 123) & " 11 

13 VP*=" "*CHR*< 124) ttCHR* C 121 > *CHR* ( 122) SCHR* < 125) H" " 


20 CH0C=0 

21 RANDOMIZE 

22 X-20 

23 ! 

24 ! #***GRAPHISMES*#*» 

25 ! 

26 CALL CHAR< 92,"FFFFFFFFFFFFFFFFFFFF"> 

27 CALL CHARC33,"FEFCFCF8F0E0COC08000") 
20 CALL CHAR< 34 ;"7F3F3F1FOF0703030100") 
23 CALL CHAR< 35,"00000000010000000000"> 

30 CALL CHAR(36,"00000000900000000000") 

31 CALL CHARC37,"00000000030300000000") 

32 CALL CHARC38,"OOOOOOOOCOCOOOOOOOOO") 

33 CALL CHAR(33,"0000001F191F1GOOOOOO“) 

34 CALL CHAR(40;"OOOOOOF030F8D0OOOOOO") 

35 CALL CHAR<41,"00000300030303030303") 

36 CALL CHAR< 42,"OOOOFF04C3D2FFDFC7CO") 

37 CALL CHAR ( 43 ; '‘OO0OFF2O934BFFFBE303 " ) 
30 CALL CHAR< 44, “OOOOCOOOCOCOCOCOCOCO 11 ) 
33 CALL CHAR ( 50 , "FFFFFFFFFFOOOOOOOOOO" ) 

40 CALL CHAR( 51, "00008666000068660000'' ) 

41 CALL CHAR(52 ,"OFOFOÛOOOOOOOOOOOOOO") 


42 CALL CHAR( 53 , "03000000000000000000 11 ) 

43 CALL CHARCG1,"FFFFFFOOOOOOOOOOOOOO"> 

44 CALL CHARC62,"FFFFFFFFFFOOOOOOOOOO") 

45 CALL CHAR(100,"00000800000808080000"> 

46 CALL CHARC101,"18101010101800001818”) 

47 CALL CHAR(1O2,"1818181018OOOOOO3838"> 

48 CALL CHAR<103,"38303838380000007870"> 
43 CALL CHAR ( 1 04 , "70707870787870000000'' ) 

50 CALL CHARC105,"OOF8F8F6F8F8F8F0F8F8"> 

51 CALL CHARC 106, "000000003c0000000000") 

52 CALL CHARC107,"E01C0300000000031CEO") 

53 CALL CHARC108,"O738COOOOOOOOOCO30O7") 

54 CALL CHARC120 ,"FF007CFEFEFEFEFEFE7C") 

55 CALL CHARC 121 ,"FF 0811254EFFFF3F0F00"> 

56 CALL CHARC122, "FF 1088A472FFFFPCF000") 

57 CALL CHARC 123,"FF003E7F7F7F7F7F7F3E") 
50 CALL CHARC124,"FFOO7CB28202FE82027C"> 
53 CALL CHAR(125,"FF003E4141417F41413E") 

60 TG*=CHR*(33>:TD*=CHR*<34> 

61 Z*(1>=" "&CHR*(37)&CHR*(38)&" " 

62 Z* ( 2 )"£CHR*(33)&CHR* C 40) &" " 


63 Z*(3)=" "iCHRSUI >*CHR*<42> *CHR*<49) iCHR*( 44) t" 44 

64 Z*<4>« n "ÎCHR*<41 ) SC HR* ( 42 ) iCHR* ( 43 ) XCHR4 (44 ) & " " 

65 Z*(5 > =" 41 fcCHR*< 120) &CHR* C 121 ) &CHR* C1 22 ) &CHR* C1 23 ) 8. " 41 

66 Z$ C 6 ) "SCHR*(120)8CHR* <121> &CHR*(122)*CHR$ < I23 ) X" 41 

67 Pli Cl >=CHR*(53) 

68 P$ (2) =CHR$ (52 ) 

63 PI* <3)=CHR*( 50) 

70 P* ( 4 ) =CHR* C 51)&CHR*(51) 

71 P* < 5) =“COCACOLA" 

72 P* (6)-"TILTJeux" 

73 P*(7>="AUTQMÛT0" 

74 P* C0)= ,, PIOTPNEU , ‘ 

75 Pli C 9 ) - "exe I 100" 

76 M* C 1 ) ==CHR* C 100) 

77 H* C 2 ) =CHR1> (101) 

78 h*(3)=CHR*(102) 

73 M*(4)=CHR$(103) 

80 M* < 5 ) —CH R*(104 ) 

01 M*C6)=CHR*(105> 

82 ! 

03 ! #***PRESENTATION**** 

04 ! 

85 CLS "WBE:" 

86 CALL HR0N("b",17,4)rCALL POKE(50320,162,5,45,162<136,45,10>:CALL EXECC50320) 
07 FOR 1=1 TO 5 

88 CALL CQLOR C "OBB" ) : LOCATE <I,1):PRINT RPT$(" ".,40) 

03 NEXT I' 

30 CALL COLOR("OYBHL"):LOCATE (3/12)sPRINT "FFOORRMMUULLEE 11" 

31 LOCATE (4/12)SPRINT "FFOORRMMUULLEE 11" 

32 CALL COLOR("1RB"):LOCATE (4/2)SPRINT VP*s LOCATE (4/33)SPRINT VP* 

33 FOR 1=6 TO 10 

34 CALL COLOR ( "OCC" ) : LOCATE <1/1 ) sPRINT RPT*<" %40) 

35 NEXT I 

36 FOR 1=11 TO 16 

37 IF DEPART=1 AND 1=16 THEN GOTO 101 


130 




36 CALL COL OR ("OGG") : LOCATE (1,1 > sPRINT RPT$(" " ,40) 

93 CALL COLÛRC'IGB") x LOCATE (I , 20- ( 1-7) > : PR INT TG$ fcRPT $ ( " ",<1-7>*2)&TD$ 

100 CALL COLOR("1WB")r LOCATE (1,20) : PR INT 

101 NEXT I 

102 IF DEPART=0 THEN GOSUB 22O:GOT0 9E 

103 CALL COLQRCObb") x LOCATE (21,1)SPRINT RPT$<" ",40> 

104 CALL COLOR<"OWB"):LOCATE (21,4) :PRÏNT "FUEL" 

105 LOCATE (21,14) xPRÏNT "TIME*' 

106 LOCATE (21,24)xPRINT "BOUM" 

107 LOCATE <21,34)SPRINT "RACE" 

108 CALL COLORC'Obb"): LOCATE (22,2) SPRINT RPTiK " ",38) 

109 GOSUB 170 

110 CALL SPEECH("L,"iMT$)xH=INTRND(6)sCO=INTRND(6):GOSUB 202 

111 ! 

112 ! ****JEUX**#* 

113! 

114 IND=INT(RND*3)-1:D=1B 

115 FOR 1 = 12 TO 16 xD=D+IND xCALL SPEECH("L,"&MT10 

116 CALL COLOR("1WB"):LOCATE (16,12)sPRINT RPT*(" ",8)SM$(6)XRPT$(" ",3> 

117 CALL KEY1(A,B):IF B=0 THEN 120 

118 X=X-((A=129 AND X<24)*4)+((A=131 AND X>12)*4) 

113 0 = 0-< ( A=32 AND Q<♦6)*♦1) + ((A=130 AND Q>0)*.1) 

120 LOCATE (16,X)SPRINT VPSxLOCATE (16,X)x PRINT 00* 

121 IF H = 3 THEN GOSUB 145rGOTO 128 

122 IF H=4 THEN GOSUB 145iGOTO 128 

123 CALL COLOR("1"&C$(CO)i"B") 

124 LOCATE (I,D)zPRINT Z*(1-10):LOCATE (I-1,D>SPRINT RPT*<" ",E) 

125 IF 1016 THEN 127 

126 IF 0 + 4>=X AND D-4(X THEN GOSUB 134 EL.SE: GOSUB 183 

127 CALL COLOR("1 WB" >:LOCATE (I-1,20): PRINT M*<I-11> 

128 NEXT I 
123 GOTO 110 

130 ! 

131 ! *»**EXPLOSIQN BOLIDE**** 

132 ! 

133 CALL COLOR("1RY") 

134 LOCATE (16,12):PRINT CHR$(106)&RPT*(CHR*<107),4) 

135 LOCATE (16,25): PRINT RPT$(CHR*(1OB),4)XCHR*<106) 

136 CALL COLOR<"1YRL") 

137 LOCATE (16,17): PRINT "BBOOUUMM" 

138 CALL SPEECH<"L,"&EX$) 

133 CHQC=CH0C+1xGOSUB 189 

140 IF CHOC >2 THEN CLS "WWW" : PAUSE 1 :CLS "RRR" xCLS "WWW'xRlJN 

141 RETURN 

142 ! 

143 ! ***#PAYSAGE#*w# 

144 ! 

145 IF 1=16 THEN GOSUB 155xG0T0 151 

146 IF 1 = 15 THEN CALL COLOR<"1 GW"):GOSUB 164sG0T0 151 

147 IF 1 = 14 THEN CALL COLOR<"1 WG"):GOSUB 166:GOTO 151 

148 IF 1=13 THEN CALL COLOR("1WG">xGOSUB 168xGOTO 151 

149 CALL COLOR("1WG" ) 

150 LOCATE (11,20-(1-7))SPRINT P$(I-11) 

151 RETURN 

152 ! 

153 ! ****CQMPTEURSw*** 

154 ! 

155 HA=INTRND(5) 

156 CALL COLOR("OGG")xLOCATE (11,24-<1-7)):PRINT " " 

157 CALL COLOR("0"(INTRND(6))i"W") 

158 LOCATE (11,20-(I-7>)xPRINT SEG*(P$(I+HA-12),1,4) 

153 LOCATE ( 12,20-( I - 7 ) ) x PR INT SEG$ (P1> (I+HA-12) ,5,4) 

160 PAUSE ♦ 1 x CALL CGLORC'OGG") 

161 LOCATE (11,20-(I-7))SPRINT " 

162 LOCATE (12,20-(I-7))xPRINT " 

163 RETURN 








164 

CALL COLOR< " 1RUI" ):LDCATE <11,22-<I«7>)sPRINT 

F'$ ( I - 11 > 


165 

RETURN 



166 

CALL CQLOR("1WG"):LOCATE <11,22-(I-7)): PR INT 

P*(ï- 11 ) 


167 

RETURN 



168 

CALL COLOR <"1WG"):LOCATE (11, 21 - ( I - 7 )): PR INT 

F‘$ ( I -11) 


169 

RETURN 



170 

FOR 1=163 TO 133 



171 

CALL LINECB",B,1,72,1) 



172 

CALL LINE("B",00,1,144,1) 



173 

CALL LINE<"B",168,1,232,1) 



174 

CALL LINECB",240,1,304,1) 



175 

NEXT I 



176 

FOR 1=171 TO 131 



177 

CALL LINECM", 8,1,72,1) 



178 

NEXT I 



173 

RETURN 



180 

! 



181 

! **##PROGRESSION COURSE RACE**## 



1 82 

! 



183 

RAC=RAC+(« 4 + Q):RACE*INT(RAC): IF RACE>56 THEN 

203 


184 

CALL LINE("Y",248+RACE,171,248+RACE,131> 



185 

FU = FU - ( ♦ 1 + 0) :FUE=INT (FU > : IF FUEO THEN CLS "YYY":CLS "WWW" 

: PAUSE 1:RUN 

186 

CALL LINE ( "6",FUE,171,FUE,131) 



107 

RETURN 



188 

i 



109 

! ****CHOCS#*** 



130 

! 



191 

FOR J=163 TO 171+(CH0C*7) 



T32 

CALL LINE("R",170,J,230,J) 



133 

NEXT J 



134 

FOR K=163 TO 193 



135 

CALL LINE("B",248,K,304,K) 



136 

NEXT K 



137 

RAC=0:Q=0 



130 

RETURN 



139 

! 



200 

! ****TEMPS#*** 



201 

! 



202 

T=T +♦3 



203 

CALL LINE("G",30,193-T,142,193-T) 



204 

IF T>25 THEN CLS "WWW":PAUSE 1sCLS "RRR": PAUSE 1 :CLS "YYY" 

xPAUSE 1rRUN 

205 

RETURN 



206 

! 



207 

! ****PEROU*#** 



200 

! 



209 

CALL HROFF 



210 

CALL POKE(50920,162,5,45,162,136,45,10):CALL 

EXEC<50320) 


21 1 

CLS "BbR" : CLS "BbY" : PAUSE «5: CLS "BbB" : CLS " 

BbN"s PAUSE * 5 : 

CLS "BbW" 

212 

CALL COLDR("1WRLH"):LOCATE ( 11,8) : PR INT "CCHHAAMhPPIIOONN" 


213 

LOCATE (12,0)SPRINT "CCHHAAMMPPÏIOONN" 



214 

CALL C0L0R("0RW"):LOCATE (22,30):PRINT "PRESS KEY" 


21 5 

CALL KEY1 ( A ,E!> :IF B=0 THEN 215 



216 

RUN 



217 

! 



218 

! ****AFFICHAGE DEPART*#** 



213 

» 



220 

CALL COLORCIWB" ): LOCATE ( 16,20 ) : PRINT 00* 



221 

CALL SPEECH("L,"iMT$) 



222 

LOCATE (11,17) SPRINT RF*T$( CHR$< 61 ), 8) : DEPART 

=1:PAUSE .3 


223 

LOCATE <11,17) SPRINT RF‘T$(CHR$<62) ,8) :CALL COL.QR ( "OBW" ): PAUSE *2 

224 

LOCATE (11,17):PRINT RF*T$< CHR$<32 ) , 8 ) : PAUSE 

« 1 


225 

LOCATE (11,16):PRINT RPT$(CHR$<32),10):PAUSE 

♦ 05 


226 

LOCATE (12,16)SPRINT RPT*<CHR$<32>,10) 



227 

CALL SPEECH("L,"&MT$) 



228 

LOCATE (11,14)SPRINT RPT$<CHR*<32>,14) 



223 

LOCATE (12,14)SPRINT RPT$(CHR$<32),14) 
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230 CALL SF'EECHC’L/'tMT*) 

231 L.OCATE ( 13> 14) :PRINT RFT$(CHR*<32) , 1 4 ) 

232 CALL CQLQR ( “OBUL " > : L OC A TE < 12 , 15 ) : PR INT "D DEEF : ‘ PAARRTT" 

233 CALL SPEECH("L >"&MT$ > 

234 CALL COLOR < "08W" ) : LOCATE (11,13): PRINT RF' T$ ( C HR $ < 32 ) , 1 (S ) 

235 LOCATE (12,13)ïPRINT RPT*<CHR$(32),1 £) 

236 CALL SPEECH("L,“XMT$) 

237 LOCATE (13,13) :PRINT RF’T$( CHR$ ( 32 ) ,1 B ) 

236 CALL SPEECH("L,"ÎMT$) 

233 LOCATE <14,13)zPRINT RPT*(CHR*(32),1 &) 

240 LOCATE (15,13): PRINT " "zLQCATE (15,26): PR INT " " 

241 LOCATE ( 1E , 1 3 ) : PRINT " ":L.OCATE ( 1G, 28 ) : PRINT " " 

242 CALL COLOR("OBWLH"):LOCATE (12,15): PR INT "OOEEPPAARRTT" 

243 CALL SPEECH ( “L , " JtMT$ ) 

244 LOCATE (13,15): PRINT "D 0 EE P PA A RR TT" 

245 CALL COLOR("OBY"):LOCATE (22,31):PRINT "PRESS KEY" 

246 CALL COLOR ("HUE:"): LOCATE ( 1G , 20 ) : PR INT 00$ 

247 CALL SPEECH("L,“£MT$): PAUSE .4 

248 LOCATE (16,20):PRINT VP$ 

243 CALL KEY1(A,B): IF B=0 THEN 24E 

250 CALL COLOR("1WB")ILOCATE (1G,20>: PRINT 00$ 

251 RETURN 

252 ! 

253 ! »*##*#**#**# *#*»#**# 

254 ! * FIN DU PROGRAMME # 

255 ! ******************** 


MSX 


BREAK OUT 

Vous aimez les jeux d'arcade rapides à vous mettre 
les nerfs en pelote ? Voici un programme qui vous est destiné. 

Un cassebriques fort bien réalisé qui étonne tant par 
la vitesse du jeu que par ses qualités graphiques et sonores. 


10 REM BRBAK-OUT 
20 REM PAR 

30 REM MANFREDI DOMINICO 
40 REM (C) 1966 
50 CS=0:B=2473 
60 KEY OFF:CLS 

70 LOCATE 8.10:PRINT "OCTETS A CHARGER:" 

60 FOR 1=50148! TO 52621! 

90 RBAD A:POKEI,A:CS=»CS+A 
100 LOCATE 25,10 

110 PRINTUSING "####";B:B=B-1:NBIT 

120 IF CS0239641! THEN PR INT" ERREUR DATA" : END 

130 DBF USR=*HC3B5:PRINTÜSR(0) 

140 DATAOOO,033,001,001,034,234,243,205,111,000 
150 DATA033,002,203,017,000,002,001,122,000,205 
160 DATA092,000,033,004,204,017,000,003,001,064 
170 DATAOOO,205,092,000,033,114,203,017,128,001 
180 DATA001,080,000,205,092,000,033,127,204,017 
190 DATA160,002,001,016,000,205,092,000,033,143 
200 DATA204,017,128,003,001,208,000,205,092,000 
210 DATA033,095,205,017,128,004,001,008,000,205 
220 DATA092,000,033,103,205,017,014,032,001,005 
230 DATAOOO,205,092,000,033,005,032,062,128,001 
240 DATAOOÔ,000,205,086,000,062,144,033,000,024 
250 DATA001,000,003,205,086,000,062,032,033,231 
200 DATA024,001,019,000,205,086,000,033,007,025 
270 DATA001,019,000,205,066,000,033,039,025,001 


280 DATA019,000,205,086,000,033,071,025,001,019 
290 DATAOOO,205,086,000,033,103,025,001,019,000 
300 DATA205,086,000,033,135,025,001,019,000,205 
310 DATA086,000,033,167,025,001, 019,000,205, 086 
320 DATAOOO,033,199,025,001,019,000,205,080,000 
330 DATA033,231,025,001,019,000,205,066,000,033 
340 DATA108,205,017,006,025,001,017,000,205,092 
350 DATAOOO,033,125,205,017,040,025,001,017,QOO 
360 DATA205,092,000,033,245,203,017,137,025,001 
370 DATA015,000,205,092,000,033,236,203, 017,205 
360 DATA025,001,006,000,205,092,000,033,126,004 
390 DATA017,016,208,001,008,000,205,089,000,033 
400 DATA016,208,017,015,208,001,008,000,237,160 
410 DATA234,240,196,058,015,208,050,023,208,033 
420 DATAO16,208,017,128,004,001,008,000,205,092 
430 DATAOOO,062,064,050,077,212,205,073,201,062 
440 DATA001,205,216,000,040,197, 033,003, 034, 034 
450 DATA075,212,033,034,000,034,077,212,062,032 
460 DATA033,000,024,001,000,003,209,066,000, 033 
470 DATAOOÔ,000,205,230,107,033,072,000,205,239 
460 DATA197,033,130,000,205,230,107,033,200,000 
400 DATA205,230,107,033,202,203,017,002,024,001 
500 DATA029,000,205,002,000,033,231,203,017,226 
510 DATA026,001,020,000,205,092,000,062,006,033 
520 DATA032,024,001,032,000,205,066,000,062,098 
530 DATÀ033,192,020,001,032,000,205,086,000,062 
540 DATAI00,033,032,024,205,077,000,062,101,033 
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550 DAT A063, 024, 205, 077, 000, 062, 102, 033, 102, 026 
560 DATA205,077,000,062,103,033,223,026,205,077 
570 DATAOOO,033,032,024,062,097,205,000,198,033 
580 DATA0Ô3,024,062,099,205,000,198, 033,018,203 
590 DATA017,000,056,001,008,000,205,092,000,033 
600 DATA068,204,017,008,056,001,008,000,205,092 
610 DATAOOO,033,081,024,001,076,204,205,014,190 
620 DATA033,113,024,001,089,204,205,014,198,062 
630 DATA128,033,005,032,001,005,000,205,086, 000 
640 DATA062,032,033,012,032,205,077,000,033,102 
650 DATA204,017,000,032,001,004,000,205,092,000 
660 DATA195,053,198,034,000,212,033,194,203,237 
670 DATA091,000,212,001,008,000,205,092,000,201 
680 DATA030,020,001,032,000,009.205,077,000,029 
690 DATA194,002,198,201,062,010,237,067,002,212 
700 DATA034,000,212,034,004,212,042,002,212,237 
710 DATA091,000,212,001,012,000,245,205,092,000 
720 DATA241,042,004,212,001,064,000,009,061,194 
730 DATA020,108,201,062,112,050,106,204,205,236 
740 DATAI98,062,001,205,216,000,040,246,033,106 
750 DATA204,017,000,027,001,012,000,205,002,000 
760 DATA205,073,201,205,095,198,205,095,198,205 
770 DATA173,108,195,254,198,062,001,205,213,000 
760 DATA254,001,040,007,254,005,040,031,195/164 
790 DATA198,033,004,027,205,074,000,254,017,218 
800 DATA164,198,061,205,077,000,033,008,027,205 
810 DATA074,000,061,205,077,000,195,164,198,033 
820 DATA008,027,205,074,000,254,167,210,164,198 
830 DATA060,205,077,000,033,004,027,205,074,000 
840 DATAOÔO,205,077,000,201,197,013,040,253,016 
850 DATA251,193,201,033,000,000,034,080,212,033 
860 DATAOOO,027,205,074,000,203,063,203,063,203 
870 DATA063,071,042,080,212,017,032,000,025,034 
880 DATAOÔO,212,016,244,017,000,024,025,034,000 
890 DATA212,033,001,027,205,074,000,203,063, 203 
900 DATA063,203,063,040,010,095,022,000,042,080 
910 DATA212,025,034,080,212,201,058,106,204,061 
920 DATA254,064,056,004,050,106,204,201,062,112 
930 DATA050,106,204,201,058,084,212,254,000,202 
940 DATA154,199.254,001,202,206,199,254,002,202 
950 DATA004,200,042,080,212,205,074,000,254,032 
960 DATA202,068,199,254,098,202,089,199,254,099 
970 DATA202,100,199,254,103,202,121,199,062,032 
080 DATA205,077,000.205,061,200, 042, 080,212, 017 
990 DATA031,000,025,205,074,000,254,032,202,100 
1000 DATA199,195,121,199,062,003,050,084,212,205 
1010 DATA132,199,033,001,027,205,074,000,060,205 
1020 DATA077,000,195,058,200,062,002,050,084,212 
1030 DATA205,143,199,195,076,199,062,000,050,084 
1040 DATA212,205,132,199,033,001,027,205,074,000 
1050 DATA061,205,077,000,195,058,200,062,001,050 
1060 DATAO04,212,205,143,199,195,108,199,033,000 
1070 DATA027,205,074,000,060,205,077,000,201,033 
1080 DATAOOO,027,205,074,000,061,205,077,000,201 
1090 DATA042,080,212,205,074,000,254,032,202,100 
1100 DATA199,254,098,202,121,199,254,097,202,154 
1110 DATA201,254,102,202,154,201,062,032,205,077 
1120 DATAOOO,205,061,200,042,080,212,017,033,000 
1130 DATA025,205,074,000,254,032,202,068,199,195 
1140 DATA089,199,042,080,212,205,074,000,254,032 
1150 DATÀ202,121,199,254,097,202,154,201,254,100 
1160 DATA202,154,201,254,096,202,100,199,062,032 
1170 DATA205,077,000,205,061,200,042,080,212,017 
1160 DATA031,000,167,237,082,205,074,000,254,032 
1190 DATA202,089,199,195,068,199,042,080,212,205 
1200 DATA074,000,254,032,202,089,199,254,096,202 
1210 DATAOÔO,199,254,099,202.121,199,254,101,202 
1220 DATA100,199,062,032,205,077,000,205,061,200 
1230 DATA042,080,212,017,033,000,167,237,082,205 
1240 DATA074,000,254,032,202,121,199, 195, 100,199 
1250 DATA195,143,200,062,000,030,100,205,147,000 
1260 DATA062,001,030,001,205,147,000,062,062,246 
1270 DATÀ128,095,062,007,205,147,000,062,008,030 
1280 DATA015,205,147,000,058,078,212,060,050,078 
1290 DATA212,062,006,050,079,212,033,008,024,006 
1300 DATA004,205,074,000,254,057,040,005,060,205 
1310 DATA077,000,201,016,011,033,005,024,062,048 
1320 DATA205,077,000,195,104,200,062,048,205,077 


1330 DATAOOO,043,195,109,200,058,079,212,254,000 
1340 DATÀ032,010,062,008,030,000,205,147,000,195 
1350 DATA164,200,061,050,079,212,205,062,001,203 
1360 DATAI11,040,014,058,084,212,254,000,040,068 
1370 DATA254,001,040,056,195,251,200,033, 001,027 
1380 DÀTA205,074,000,071,033,005,027,205,074, 000 
1390 DATA184,032,050,033,004,027,205,074,000,071 
1400 DATA050,074,212,033,000,027,205,074,000,050 
1410 DATA073,212,184,056,028,062,016,033,074,212 
1420 DATA134,033,073,212,190,056,016,195,171,200 
1430 DATA062,002,050,084,212,195,251,200,062,003 
1440 DATA050,084,212,058,078,212,254,240,202,006 
1450 DATA201,195,080,198,062,000,050,078,212,062 
1460 DATÀ008,030,015,205,147,000,062,001,030,001 
1470 DATA205,147,000,006,007,030,001,062,000,205 
1480 DÀTA147,000,062,032,050,077,212,205,073,201 
1490 DATA062,000,028,060,184,032,251,123,254,240 
1500 DATA056,231,005,120,254,004,032,223,062,008 
1510 DATA030,000,205,147,000,205,088,201,195,187 
1520 DATA197,197,058,077,212,071,058,077,212,061 
1530 DATA032,253,016,248,193,201,062,003,050,075 
1540 DATA212,001,003,000,033,226,026,062,066,205 
1550 DATA086,000,033,018,024,006,002,205,074,000 
1560 DÀTA254,057,040,016,060,205,077,000,058,076 
1570 DATA212,061,061,050,076,212,050,077,212,201 
1580 DATA016,011,033,017,024,062,048,205,077,000 
1590 DATA195,104,201,062,048,205,077,000,043,195 
1600 DATAI09,201,058,075,212,061,040,092,050,075 
1610 DATA212,205,201,201,058,076,212,050,077,212 
1620 DATÀ033,228,026,205,074,000,254,066,040,011 
1630 DATA033,227,026,062,032,205,077,000,195,198 
1640 DATA201,062,032,205,077,000,195,053,198,062 
1650 DATA008,030,015,205,147,000,062,001,030,001 
1660 DATÀ205,147,000,006,026,030,001,062,000,205 
1670 DATA147,000,062,096,050,077,212,205,073,201 
1680 DATA062,000,028,060,184,032,251,123,254,224 
1690 DATA056.231,062,008,030,000,205,147,000,201 
1700 DATA033,226,026,062,032,205,077,000,062,008 
1710 DATA030,015,205,147,000,062,001,030,000,205 
1720 DATAI47,000,006,001,030,001,062,000,205,147 
1730 DATAOOO,062,032,050,077,212,205,073,201,062 
1740 DATAOOO,028,060,184,032,251,123,254,192,056 
1750 DATA231,004,120,254,031,032,223,062,008,030 
1760 DATAOOO,205,147,000,033,000,032,062,000,001 
1770 DATA004,000,205,086,000,033,118,204,017,108 
1780 DATA025,001,009,000,205,092,000,033,001,027 
1790 DATA062,255,205,077,000,033,005,027,205,077 
1800 DATAOOO,033,009,027,205,077,000,062,001,205 
1810 DATA216.000,040,249,062,066,033,226,026,001 
1820 DATA003,000,205,086,000,062,034,050,076,212 
1830 DATA050,077,212,062,003,050,075,212,062,000 
1840 DATA050,078,212,062,032,033,108,025,001,009 
1850 DATAOOO,205,086,000,033,005,024,017,000,211 
1860 DATA001,004,000.205,089,000,033,026,024,017 
1870 DATA005,211,001,004,000,205,089,000,006,001 
1880 DATA221,033,000,211,253,033,005,211,221, 126 
1890 DATAOOO,253,190,000,040,005,048,016,195,233 
1900 DATA202,120,254,004,040,008,221,035,253,035 
1910 DATA004,195,184,202,001,004,000,033,000,211 
1920 DATA017,005,211,237,176,033,005,211,017,026 
1930 DATA024,001,004,000,205,092,000,001,004,000 
1940 DATA062,048,033,005,024,205,086,000,062,048 
1950 DATA033,017,024,001,002,000,205,086,000,195 
1960 DATA187,197,060,066,153,161,161,153,066,060 
1970 DATA254,254,230,230,254,254,230,230,056,124 
1980 DATA254,254,254,254,124,056,126,254,224,224 
1990 DATA224,224,254,126,252,254,230,230,230,230 
2000 DATA254,252,254,254,224,248,248,224,254,254 
2010 DATA254,254,224,248,248,224,224,224,230.246 
2020 DATA254,254,254,238,230,230,230,230,230,254 
2030 DATÀ254,230,230,230,254,254,056,056,056,056 
2040 DATA254,254,252,254,230,230,254,252,224,224 
2050 DATA252,254,230,230,252,252,230,230,126,254 
2060 DATA224,252,126,014,254,252,194,230,254,254 
2070 DATA230,230,230,230,124.254,230,230,230,230 
2080 DATA254,124,024,056,120,248,056,056,254,254 
2090 DATAOÔO,126,196,012,120,224,254,254.252,254 
2100 DATA014,062,062,014,254,252,224,224,236,236 
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2110 DATA254,254,012,012,254,254,224,252,254,014 
2120 DATA254,252,124,254,224,252,254,230,254,124 
2130 DATA254,254,205,028,024,056,056,056,124,254 
2140 DATA230,124,254,230,264,124,124,254,206,254 
2150 DATA126,014,254,252.000,126,126,126,126,126 
2160 DÀTA126,126,076,067,056,046,046,040,046,048 
2170 DATÀ032j 032,032,032,071,073,056,040,048,032 
2160 DATA032,032,032,072,073,056,046,046,046,048 
2100 DATA046,066,066,066,032,032,032,032,064,032 
2200 DÀTÀ040,057,056,054,032,074,065,075,032,077 
2210 DATA065,071,070,075,060,068,073,032,068,046 
2220 DATAOOO,000,000,000,255,000,000,255,000,000 
2230 DATAOOO,000,000,000,000,000,255,000,000,255 
2240 DATAOOO,000,000,000,144.144,144*144,144,144 
2250 DATA144,144,000,000,000,000,015,006,008,000 
2260 DATAOOO,000,000,000,240,016,016,144,009,008 
2270 DATA008,015,000,000,000,000,144,016,016,240 
2280 DATAOOO,000,000,000,024,024,024,024,024,024 
2290 DATA024,024,001,025.001,025,009.025,009,025 
2300 DATA017,025,017,025,015,025,001,025,001,025 
2310 DATAOOO,025,009,025,017,025,017,025,079,223 
2320 DATA127,095,104,112,000,015,088,018,001,010 
2330 DÀTÀ006,016,001,010,084,065,077,069,032,048 
2340 DATA085, 069, 075, 254, 254,230,224, 238., 230, 254 
2350 DATA254,230,230,230,108,108,124,056,056,255 
2360 DATA062,060,060,060,060,062,063,240,056,028 


2370 DATA028,026,028,058,248,062,060,060,060,060 
2380 DÀTA060.062,255,028,014,014,014,014,014,028 
2390 DATA248,061,060,060,060,060,060,060,254,224 
2400 DATÀ240,112,120,056,060,028,126,252, 004, 000 
2410 DATAOOO,000,000,032,224,032,000.000,000,000 
2420 DATAOOO,004,252,031,062,060,060,060,060,062 
2430 DATA063,248,060,028,028,028,028,060,252,062 
2440 DÀTAOÔO,060,060,060,060,060,254,060,028,028 
2450 DATA028,028,028,028,254,254,060,060,060,060 
2460 DATA060,060,063,062,026,060,056,112,112,224 
2470 DATA224,031,062,060,060,060,060,060,060,248 
2480 DÀTAOÔO,028,028,028,020,028,028,060,060,060 
2490 DATA060,060,060,062,031,028,028,028,028,028 
2500 DATA028,060,248,254,060,060,060,060,060, 060 
2510 DATÀ060,126,028,028,028,028,028,028,028,255 
2520 DATA143,007,007,007,007,007,007,254,226,192 
2530 DATA192,192,192,192,192,007,007,007,007, 007 
2540 DATÀ007,007,031,192,192,192,192,192,192,192 
2550 DATA224,000,000,000,000,000,000,060,126,126 
2560 DATAOOO,000,000,000,000,000,000,255,129,189 
2570 DATA165,165,189,129,255,160,160,160,160, 071 
2580 DATA112,113,112,113,112,118,120,121,124,125 
2590 DATA136,126,127,130,131,132,133,114,115,116 
2600 DATAI17,114,119,122,123,116,117,137,128,129 
«610 DATA120,129,134,135 
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BOMBARDIER 

Aux commandes de votre soucoupe volante, vous devez détruire 
la base mobile ennemie en lâchant au moment opportun 
une bombe nucléaire. Huit niveaux proposés qui augmentent la 
vitesse de déplacement de la base. Vous pouvez 
définir au départ le nombre de bombes dont vous disposerez. 


10 ' BOMBER 

20 HS=0: SCREEN 2; COLOR, 1, 1 : CLS 
30 GOTO 420 

40 SC=0: SCREEE 2: GOSUB 370 : OE SPRITE GOSUB 180 
50 SPRITE ON 

60 SPRITES (2) =CHRS <255) +CHRS (213) +CHRS (171)+CHRS (213) +CHRS ( 171) +CHRS (255) 

7 0 SPRITES <3)=CHRS<204>+CHRS <72)+CHRS(48)+CHRS(120)+CHRS(120)+CHRS(120)+CHRS(4 8) 
+CHRS(48) 

80 SPRITES (1 ) =CHRS (fliH18)+CHRS <AH3C)+CHRS (&H66) +CHRS <&HDB)+CHRS (8iHE7 ) +CHRS <&H7E) + 
CHRS < &H24)+CHRS(&H42) 

90 X=0 :Y=0:DX=1:D=0:BOKB=0:BX=0: BY=0 
100 PUT SPRITE 0, (X, Y),13.1:LS=INKEYS 
110 X=X+DX 

120 IFX>250 THEN X=0:Y=Y+8 

130 GOSUB 250 

140 IF V=-l THEN GOTO 520 

150 IF LS= M "AND BOMB =0 THEN V=V-1: GOSUB 290 

160 IF BOMBE =1 THEN GOSUB 330 

170 GOTO 100 

180 * explosion 

190 FOR Y=“7 TO 0 

200 FOR X =—7 TO 0 

210 SET ADJUST(X,Y) 

220 NEXTX 
230 NEXT Y 
240 SC=SC+1 
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330 BEEP 

340 MEXT F 

350 RETURN 

360 'AFFICHAGE RAT 

370 LOCATE CX+5,CY+5:PRINT"0" 

380 RETURN 

390 'AFFICHAGE TOUCHÉ 

400 LOCATE CX+5,CY+5:PRINT"X":ACCX,CY>=2:SC=SC+1 
410 RETURN 
420 'RÈGLES 

430 CLS: PRINT"VOUS DEVREZ DÉTRUIRE EN UN MINIMUM DE TEMPS LE MAXIMUM DE BATEAUX 
>1 

440 INPUT"NOMBRES DE BATEAUX ENNEMIS";C 

450 INPUT"NOMBRES DE TORPILLES";T 

460 IF INKEY$="" THEN 460 ELSE CLS: GOTO 40 

470 'DÉCOMPTE TORPILLE 

480 'TEST PLUS DE TORPILLE 

490 IF T=0 THEN GOTO 520 

500 T=T-1 

510 RETURN 

520 ’CHECK UP 

530 CLS: PRINT"PLUS DE TORPILLES!!!" 

540 PRINT: GOTO 550 
550 ’SCORE 

560 CLS: PRINT"VOTRE SCORE EST DE ";SC:END 
570 'TEST TEMPS 
580 TEMPS=TEMFS+1 

590 IF TEMPS=50 THEN CLS: PRINT"TEMPS ÉCOULÉ":PRINT:GOTO 550 
600 RETURN 


MSX 

GAME 86 


Votre MSX se met à faire de l'humour... vous ne lui 
connaissiez pas ce talent! Ne prenez pas cet air stupide s'il 
vous déclare que « le frétillant nabot crache sur le bureau » 
ou que « la princesse aboie dans les toilettes ». C'est le 
jeu ! Vous pouvez aussi bien sûr augmenter son vocabulaire. 


10 ’GAMES 86 OU CADAVRE EXQUIS 
20 COLOR 4,1,1:SCREEN 0 
30 ‘REM ARTICLE MASCULIN 

4 0 DATA"LE" , "MON" TON" 

5 0 DATA"LA","MA","TA" 

60 REM ADJECTIF MASCULIN 

70 DATA"GRAND","PBTIT","GIGANTESQUE","MAGNIFIQUE","LISSE","RAPEUX","PREMIER" , "DE 
RNIER","LUMINEUX","VOLUMINEUX" , "FRETILLANT" , "REPUGNANT" , "BAVEUX" 

80 'SUJET MASCULIN 

90 DATA"CABOT","POSTÉRIEUR","BRAS","PIED","PORC","CRANE","TAPIS","PRINCE","PALFR 
ONNIER","NAIN","GEANT","NABOT" 

100 'SUJET FEMININ 

110 DATA"LIMACE","FESSE","JAMBE","GRENOUILLE","TRUIE","TETE","MOQUETTE","PRINCES 
SE","PALFRONNIERE","NAINE","GEANTE","NABOTE" 

120 'VERBE 

130 DATA"MANGE","BOIT","CHANTE","GONFLE”,"ABOIE","GROGNE","CRACHE","LOUCHE" , "SE 
GRATTE","COGNE","S'EMBRASSE" 

140 1 LIEUX 
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150 DATA”SUR LE ROCHER”,"DANS LES TOILETTES","SUR LE BUREAU","DANS LA PORCHERIE" 
,"DANS L'EPOUVANTABLE ODEUR","SUR SES CHAUSSURES"DANS LE TELEVISEUR","SUR LES 
VC" 

160 A=INT<RND<1)*3>:PRINT A 

170 IF A=1 THEN RESTORE 40 ELSE RESTORE 50 

180 IF A=1 THEN MAS =1 ELSE MAS=0 

190 FOR F=1 TO INT(RND(1)*3) 

200 READ AS 
210 NEXT F 

220 'LECTURE ADJECTIF 
230 RESTORE 70 

240 FOR F= 1 TO INT<RND<1>*14> 

250 READ BS 
260 NEXT F 

270 IF KAS=0 THEN GOSUB 460 
280 'SUJET M-F 

290 IF MAS=1 THEN RBSTORE 90 ELSE RESTORE 110 
300 FOR F=1 TO INT(RND<1)*13) 

310 READ CS 
320 NEXT F 
330 RESTORE 130 
340 'VERBE 

350 FOR F= 1 TO INT<RND<1>*12> 

360 READ DS 
370 NEXT F 
380 RESTORE 150 
390 'LIEUX 

400 FOR F=1 TO INT(RND(1)*9) 

410 READ ES 
420 NEXT F 

430 'AFFICAGE PHRASE 

440 CLS:PRINT AS+" "+BS+" "+CS+" "+DS+" "+ES 
450 IF INKEY$=""THEN GOTO 450 ELSE CLS:GOTO 160 
460 'SP ACCORD M-F 
470 RS=RIGHTS(BS,1) 

480 IF RS="X" THEN 0=LEN(BS):B$=LEFTS<BS,0-1):BS=BS+”SE":RETURN 
490 BS=BS+"E":RETURN 


ORIC 


EPIDEMIE 

Une grave maladie ravage la ville. Dans un premier temps, elle 
atteint la tête puis s'attaque au corps. 

Vous avez six étapes pour lutter contre la maladie en 
détruisant les virus sans endommager 
les anticorps. Attention aussi aux vaisseaux sanguins ! 


■,0 

50 NEXT 

14 REM* EPIDEMIE - R.JUHEL 1986 * 

54 REM 

15 REM*************************** 

55 REM HOMME 

16 REM 

56 REM 

10 PAPER1 :INKO 

60 DATAO,12,30,30,30,30,12,30 

19 POKE610,10 

70 DATAI,7,15,15,15,13,13, 13 

20 FOR 1=0 TO 167 

00 DATA63,63,63,63,63,63,63,63 

30 READ AA 

90 DATA32,56,60,60,60,44,44,44 

40 POKE 46056+1,AA 

100 DATA9,12,12,12,0,13,9,9 
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110 DATA36,12,12,12,4,44,36,36 
120 DATA1,1,1,1,1,1,1, 1 
130 DATA63,63,51,51,51,33,51,51 
140 DATA32,32,32,32,32,32,32,32 
150 DATAI,1,1,1,7,31,0,0 
160 DATA51,51,51,33,51,0,0,0 
170 DATA32,32,32,32,56,62,0,0 

174 REM 

175 REM PARTICULES 

176 REM 

1B0 DATA 14,4,10,10,10,14,4,4 


190 DATA 0,30,33,37,33,25,6,0 
200 DATAO,12,18,IB,12,51,0,0 
210 DATAO,4,4,11,26,4,4,0 
220 DATA32,32,47,2B,28,4,4,4 
230 DATA33,18,30,12,12,30,10,33 
240 DATA63,51,45,29,21,29,45,21 
250 DATA63,35,45,41,45,37,59,63 
260 DATA49,59,53,53,53,49,59,59 
270 G0T03000 
2B9 REM 

290 REM VARIABLES 


291 

300 

310 

320 

330 

331 

332 

333 

334 

335 

336 

337 
340 
450 
500 

504 

505 

506 
510 

520 

521 
530 
540 
550 
555 
560 
570 
575 
5B0 
590 
600 
1530 

1535 

1536 
1540 
1550 
1560 
1990 
2000 
2001 
2010 
2020 
2030 
2040 
3000 
3010 

3015 

3016 
3020 
3030 
3040 
3050 
3060 


ccccccccc" : A ( 1 ) =10: B ( 1 ) =30 
ccccccccccc":A(2)=12:B<2)=20 
ccccccccccccc": A(3)=14:B(3)=26 
ccccccccccccccc":A(4)=16:B<4)=24 


REM 

A*(1)="cccccccc 
A$(2)="cccccccccc 
A4<3)="cccccccccccc 
A$(4)="cccccccccccccc 
X=20:Y=20 

PH=1 :C=1 :S=1000:GOSUB4000 
PH=2:C=2: 0=2000:60SUB4000 . 

PH=3:C=2:G=5000:Y=21:GQSUB4000 
PH=4:C=3:6=6000::GOSUB4000 
PH=5:C=3:G=10000 ï Y=22:GOSUB4000 
G0TÜ5000 
PV=100 

F0RI=1TG26:PR1NTA4(1):NEXTI 

K=1 

REM 

REM BOUCLE JEU 
REM 

F0RI=1T0 30 
PRINTA*(K) 

IFSCRN(X,Y)<>32THENGOSUB20O0 

FOR F=1T0C:PLOTINT(RND(1)*(B(K)-A(K)+1)+A(K)),25,CHRt(INT(RND(1)*7)+110) 
NEXTF 

P=PEEK(#208) 

UJ=X 

IF P=172 THEN PLOT X,Y," 

IFP=18B THEN PLOT X,Y," 

IFW< >XANDSCRN CX,Y)< >32THENG0SUB2000 
PLOT X, Y, “m" 

IFPV >=GTHENRETURN 
IFPV< =0THEN GOTO 6000 
NEXT 

PLDT3,23,"PT VIE:" 

PL0T3,25,STR4(PV) 

K=K+1 

IF K=5 THENK=l 
GOTO 510 
REM 

REM INSTRUCTIONS 
REM 

SC=SCRN < X,Y) 

IFSC=99THENPV=PV-100:RETURN 


"ï X=X-1 
"ï X=X+1 


IFSC<113THENPV=PV—(SC-109)*30-30:RETURN 

PV=PV+(SC-112)*10:RETURN 

REM 

CLS: PR INT: PRINT"TOP SECRET":PRINT 

PRINT" 10 JANVIER 2004" 

PR INT 

PRINT" RAPPORT EPIDEMIE" 

PRINT" -" 

PRINT: PRINT; PRINT 

PRINT" LA SITUATION DEVIENT DE PLUS EN" 

PRINT" PLUS CRITIQUE.LA MALADIE SE 



PROPAGE 
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3070 PRINT"VITESSE FOLLE." 

3000 PRINT" TOUT LES SERUMS SE SONT REVE- LES INUTILES."; 

3090 PRINT"CEPENDANT IL NOUS RESTE UNE MAIGRE CHANCE:" 

3100 PRINT:PRINT" STATUS I" 

3110 PRINT:PRINT" STATUS I EST UN SYSTEME EXPERI- MENTAL."; 

3120 PRINT"IL A ETE MIS AU POINT AVANT QUE L y EPIDEMIE NE SE" 

3130 PRINT" DECLARE." 

3140 PRINT:PRINT" DR.RIEUX" 

3150 PRINT" <PRESSEZ UNE TOUCHE>" 

3200 6ETZ* 

3210 FOR 1=1 TO 30:PRINT:NEXTI 
3215 CLS 

3220 PRINT:PRINT" MODE D'EMPLOI : STATUS I" 

3230 PRINTSPRINT:PRINT" <-:GAUCHE ->:DROITE" 

3240 PRINT:PRINT"VOUS ALLEZ VOUS DEPLACER DANS LES"; 

3245 PRINT" ARTERES ET LES VAISSEAUX "; 

3250 PRINT"SANGUINS D'UN MALADE." 

3260 PRINT"SI VOUS GUERISSEZ LE MALADE ,SON SANG POURRA SERVIR A CREER UN SERUM 

* m 

3270 PRINT" QUI NEUTRALISERA LA MALADIE." 

3200 PRINT:PRINT"LE SORT DU GENRE HUMAIN EST ENTRE VOS MAINS." 

3290 PRINT: PRINT"POINTS DE VIE:" * 

3300 PRINT"A EVITER: n:-60 o:-90 p:-120 c:-100" 

3310 PRINT"A DETRUIRE: q:10 r:20 s:30 ts40" 

3400 PRINT: PRINT"<PRESSEZ UNE TOUCHE>":GETZ*:GOT0300 
3990 REM 

4000 REM DEBUT PHASE 
4010 REM 
4015 CLS 

4020 PRINTsPRINT" PHASE:";PH 

4030 PRINTsPRINT" a" 

4040 PRJNT" bcd" 

4050 PRINT" ec-f" 

4060 PRINT" qhi" 

4070 PRINT" jkl" 

4000 PLOT11,2+C,STR*(PH) :PL0T11,2+C,"<" 

4090 PRINT: PRINT"POINT DE VIE NECESSAIRE:"; G 
4095 WAIT200 

4100 PRINT: PRINT: PRINT: PRINT"<PRESSEZ UNE tOUCHE>":GETZ*:GETZ*:G0T0340 
5000 REM GAGNE 

5010 CLS:PRINT:PRINT" TOP SECRET" 

5020 PRINTsPRINT" 10 MARS 2004":PRINT 

5030 PRINT" RAPPORT EPIDEMIE" 

5040 PRINT" -" 

5050 PRINTsPRINT" TOUT DANGER EST MAINTENANT" 

5060 PRINT" ECARTE,LA VIE VA POUVOIR":PRINT" REPRENDRE SON COURS NORMAL 

K 

5070 PRINT"TOUT CELA NOUS LE DEVONS A UN MYSTERIEUX INCONNU"; 

5000 PRINT" QUI GRACE A SON HABILITE NOUS A SAUVE." 

5090 PRINTSPRINTSPRINT" BRAVO ET MERCI" 

5100 PRINTsPRINT" DR.RIEUX" 

5500 60T07000 

6000 CLSSPRINTSPRINT" PERDU":GOTO 7000 
7000 INPUT"VOUS RECIDIVEZ <0/N)";A* 

7010 IF A$="0"THEN RUN 
7020 END 
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ORIC 


MASTER DESIGN 

Ce logiciel vous propose de dessiner vos propres 
personnages afin de réaliser des jeux 
d'aventures graphiques. Vous pouvez aussi créer des motifs 
qui serviront de toile de fond à l'histoire 
et il est possible, en prime, de garder le tout en mémoire ! 


B 

4 REM****#***#****#**# 

5 REM* MASTER DESIGN * 

6 REM* R.JUHEL 1986 * 

7 REM***************** 

0 REM 

9 REM ************** 

10 REM INITIALISATION 

11 REM ************** 

12 CLS 

13 P0KE61B,10 

14 DIMA(100) 

15 A=1 :B=1 

16 REM ********************* 

17 REM ENTREE DES PARAMETRES 

18 REM ********************* 

19 INPUT" INSTRUCTIONS (O/N) A$s IFA$=‘ , 0 ,, 0RA$= ,, 0UI "THEN G0SUB810 

20 INPUT" DESIREZ VOUS REDEFINIR PLUSIEURS CARACTERES";A$ 

30 IF A$< >"0" AND A$O"0UI" THEN INPUT"CODE ASCII " ; A ( 1 ) : G0T070 
40 INPUT"NOMBRE DE CARACTERES DE GAUCHE A DROITE (1-5)"; A 

50 IF A>5 OR A<1 THEN GOTO 40 

60 INPUT"NOMBRE DE CARACTERES DE BAS EN HAUT (1-3) "; B 

61 FOR J=1T0 B 

62 FOR 1=1 TO A:Z=Z+1 

63 PRINT "CARACTERE DE COORDONNEES " ; "<"; I ; " —"; J ; ")" : INPUTA(Z) 

64 NEXT 

65 NEXTJ 
70 CLS 

73 FDRI=ÛT07:P0KE46840+1,63s NEXTI 

77 REM ************ 

78 REM MISE EN PAGE 

79 REM ************ 

80 DOKE 18,48000:PRINT" 12345 
90 CLS 

100 PLOT 2,0,"1":PL0T2,8,"2"sPL0T2,16,"3" 

110 PL0T2,26,"<F>FIN <E>EFFACE <I>INVERSE" 

120 MX=2+A*6:MY=8*B-1 

121 REM ******************** 

122 REM TRACE DES CARACTERES 

123 REM ******************** 

129 Z=0 

130 FOR J=1T0B 
140 FORI=1TOA 

145 Z=Z+1 

146 E=A(Z)—97:E=E*8:E=46856+E 
158 FORK=0TO7 

160 F=E+Ks P=PEEK(F):M=64 
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162 F0RL=0T05: M=M/2 

163 IFP-M>=OTHENP=P-M: PLQT3+L+ ( I —1 ) #6, K+ ( J-1 ) *8, 

164 NEXTL:NEXTKsNEXTI:NEXTJ 
190 X=3:Y=0 

195 SC=SCRN( X, Y) 

197 REM ***************** 

198 REM BOUCLE PRINCIPALE 

199 REM ***************** 

200 GETP$ 

215 8-0 

216 C=XsD=Y 

220 IF PS="Z“AND X>3 THEN X=X-1:G=1 

230 IF P$="X"AND X<MX THEN X=X+1:G=1 

240 IF P$=" *"AND Y>0 THEN Y=Y-1:G=1 

250 IF P*= M / M AND Y<MY THEN Y=Y+1:G=1 

2B0 IF P$="C"AND SC=32 THEN SC=95sG0T0300 

290 IF P$="C"AND SC=95 THEN SC=32 

300 IF G=1 THEN PLOTC,D, CHR* (SC):SC=SCRN<X„Y> 

310 PLOT X,Y,"* M 

320 IF P*="I"THEN GOTO 410 

330 IFP$="E"THENG0T0470 

400 IF P$< >"F" THEN GOTO 200 

401 PLOTX,Y,CHR*CSC>:G0T0600 
404 REM ******* 

.405 REM INVERSE 
406 REM ******* 

410 XA=INT((X—3)/6):YA=INT(Y/8) 

415 PLOTX,Y,CHR*(SC> 

420 FOR I=(3+XA*6> TO (B+XA*6) 

430 FOR J=YA*B TO (YA*8+7) 

440 IF SCRN < I, J ) =95 THEN PLOTI,J," "ELSE PL0TI,J,^" 

444 REM ****** 

445 REM EFFACE 

446 REM ****** 

450 NEXTJ:NEXTI 
460 GOTO195 

470 XA=INT((X—3)/6):YA=INT < Y/8) 

400 FOR I = (3+XA*6) TO (8+XA*6) 

490 FOR J=YA*B TO (YA*B+7) 

500 PLOTI,J," " 

510 NEXTJ:NEXTI 
520 G0T0195 

597 REM *************************** 

598 REM REDEFINITION DES CARACTERES 

599 REM *************************** 

600 Z—0 

610 FOR J=1TOB 
620 F0RI=1T0A 
630 Z = Z + 1 

640 E=A(Z)—97:E=E*B:E=46056+E 
650 F0RK=0T07 
660 F=E+K:P=0 sM=64 
670 F0RL=0T05:M=M/2 

680 IFSCRN(3-H_+(I-1)*6,K+<J-1)*S)<>32 THEN P=P+M 
690 NEXTL:POKEF,P:NEXTK:NEXTI:NEXTJ 
182 REM *(******************** 

695 REM AFFICHAGE DES 8 OCTETS 

696 REM ********************** 

700 Z=0:CLS 

710 F0RJ=1T0B 
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720 F0RI=1T0A 
725 Z=Z+1 

730 PL0T3+(I—1)*6,( J-l)*0,CHR*<A<Z>) 

740 E=A<Z)-97:E=E*0:E=46856+E 
750 F0RK=0T07 

760 PL0T4+(1-1)*6,(J-l) *0+K, STR*(PEEK(E+K)) 

780 NEXTKs NEXTI:NEXTJ 

790 PL0T3,26,"<PRESSEZ SPACE>":GETZ*:IFZ*=" "THEN RÜN ELSE G0T0790 
804 REM ************ 

005 REM INSTRUCTIONS 
806 REM ************ 

810 CLS 

020 PRINTs PRINT" MASTER DESIGN": PRINT 

830 PRINT"A CHAQUE CARACTERE CORRESPOND DES COORDONNEES SUR L'ECRAN" 

840 PRINT"ABCISSE (1-5),DE GAUCHE A DROITE," 

850 PRINT"ORDONNEE (1-3),DE HAUT EN BAS." 

860 PRINT"A CHAQUE CARACTERE CORRESPOND AUSSI UN CODE ASCII (EX:A=65>." 
B70 PRINT"(MANUEL ATMOS P.263) 

B0O PRINT s PRINT"< E >EFFACE": PRINT: PRINT"<I>INVERSE": FR INT 
B90 PRINT"<F>FIN 

900 PRINTs PRINT"Z s GAUCHE X:DROITE C:INVERSE LE POINT":PRINT 
910 PRINT" 1 ’-.HAUT /sBAS" 

1012 GETZ*: CLS:RETURN 


ORIC 


ZAXXON 

Un jeu d'arcade réalisé en trois dimensions qui 
vous entraîne dans un univers de guerre apocalyptique. Votre 
mission : sauver le monde des envahisseurs en 
détruisant leurs vaisseaux et leurs réservoirs d'essence... 


10 REM******************************* 

11 REM* ZAXXON R.JUHEL 1906 * 

12 REM ******************************* 

13 REM 

14 REM******************************* 

15 REM* REDEFINITION DES CARACTERES * 

16 REM******************************* 

17 POKE610,10: CLEAR:PAPER3: 

A=1:F=30:W=10 

20 FOR 1=0 TOI99 
30 READZ 

40 POKE46056+I,Z 
50 NEXT 

60 DATA0,0,4,7,24,14,1,0 
70 DATAO,14,20,36,4,4,52,28 
BO DATAÜ,0,0,0,7,15,1,0 
90 DATAO,0,0,12,56,56,40,0 
100 DATAO,O,0,O,O,0,0,3 
110 DATAO,O,0,0,3,12,48,0 
120 DATA2,28,56,0,0,0,0,0 
130 DATAO,0,0,0,12,20, 8,0 


140 DATAO,0,3,4,8,16,16,24 
150 DATAO,60,2,3,1,3,5,9 
160 DATA23,16,24,23,16,16,8,7 
170 DATA51,5,9,49,2,6,0,56 
100 DATAO,O,3,7,15,31,31,31 
190 DATAO,60,62,63,63,63,61,57 
200 DATAO,0,10,4,14,14,4,0 
210 DATAO,0,7,25,33,33,30,56 
220 DATA62,49,47,44,50,41,37,55 
230 DATAO,0,32,16,8,60,34,17 
240 DATA45,44,58,41,37,51,45,44 
250 DATA15,41,57,47,41,25,15,41 
260 DATA26,9,5,3,1,0,0,0 
270 DATA57,47,41,25,15,41,25,15 
200 DATAO,0,17,31,15,7,3,2 
290 DATAO,0,0,34,62,60,40,0 
300 DATA35,28,35,28,35,20,35,28 

304 REM****************************** 

305 REM BRANCHEMENT A 10000=ENVÜIE 
DES INSTRUCTIONS 

306 REM****************************** 

310 GOSUB10000 
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314 REM####**##**#*##*#****##*##*#*## 

315 REM INPLATATIQN DU DECOR =>PISTE,INDICATIONS) 

316 REM****************************** 

320 PL0T4,4,"ababab" 

495 J=35 

500 FOR 1 = 1 TOI6 

510 J=J-2 

520 PLOT J,I,"efg" 

530 NEXT 
535 K=36 

540 FOR 1=10T025 

550 K=K-2 

560 PLOTK,I,"efg" 

570 NEXT 

500 PL0T4,2,“SCORE:“ 

590 PLOT15,24,"FUEL s « « <<<<<<" 

800 REM MEMORISATION DES VARIABLES 

900 X=5:Y=20:C=1 :D=1:E=1:H=1:A=1:G0=1:LI = 1 
910 PLOTX,Y,"ab" 

997 REM*************#**##**#*#***#** 

990 REM BOUCLE PRINCIPALE DU JEU ** 

999 REM******#*****##*************** 

1000 REPEAT 

1001 IFA=2THENPLQTR,S," " 

1002 IF R>20 THEN A=1 

1005 PLOT10,2,STR$(SC) 

1006 IFSCRN(X,Y)< >97 THEN 3000 

1007 IFSCRN(X+1,Y)<>90 THEN 3000 
1000 REM AU DESSUS 

1010 IF PEEK(#208)=174ANDX>3THENPL0TX,Y," ":PLOTX,Y+l,“ ":X = X —1 :Y=Y-1 
1020 IFPEEK (#208) =170ANDX<7THENPL0TX, Y, " PLOTX, Y+l," " : X = X + 1 : Y=Y+1 

1030 PLOTX,Y,“ab":PLOTX,Y+l,“cd" 

1100 IFB=6AND C=1THENT=INT(RND<1)*6)+2:C=2:U=35 
1110 IF C=2 THEN PLOT U,T," ":PLOTU,T+l,“ “ 

1115 U=U-2:T=T+1 

1120 IF C=2 AND U<3THENC=1 

1130 IFC=2THENPL0TU,T,"ij“:PLOTU,T+1,"k1" 

1200 IFB=3 AND D=1THENL=INT(RND(1)*6)+2:D=2:0=35 
1210 IF D=2 THEN PLOTO,L,“ ":PLOTQ,L+l, " " 

1220 0=0-2: L=L-»-l 

1225 IF D=2 AND Q<3THEND=1 

1230 IF D=2 THEN PLOT □,L,"mnPLOTQ,L+l, “kl" 

1290 IF E=2 THENPLOTM,N," ":PLOTM,N+l," ":PLOTM,N+2," " 

1300 IF E=1AND B=10 THEN M=35:N=INT(RND(1)*6)+2:E=2 
1310 M=M-2:N=N+1 . 

1320 IF E=2AND M<3 THEN E=1:B=0 

1330 IF E=2THEN PLOTM, N, "qr " : PLOTM, N+l, "st PLOTM, N+2, "uv" 

1390 IF LI=2THEN PLOTGH,GK," " 

1400 PL=PL+1 

1410 IFPL=220ANDLI=1THENGH=35:GK=INT(RND( 1)* 6 > +2:LI=2 
1420 IF LI=2 THENGH=GH-2:GK=GK+1 
1425 IFLI=2ANDGH< 2 THENL1 = 1:PL=0 

1430 IF LI=2 THEN PLOTGH,GK,“y" 

1500 B=B+1 
1600 G=G+1 

1605 IF H=2 THEN PLOTO,P," " 

1610 IF H=1 AND G>30 THEN 0=35:P=INT(RND(1)*7> +2:G=0 :H=2 

1615 0=0-2:P=P+1 

1616 IF0= X ANDP=YTHENPLOT15,24,"FUEL s « <<<<< < <<“: F=30:G=0:H=1 

1617 IF0= X +1ANDP=YTHENPLOT15,24,"FUEL:<<<<<< <<<<": F=30:G=0:H=1 

1618 IF0=X+1ANDP=Y—1THENPL0T15,24,"FUEL: <<<<<<<<<< “:F=30:0=0:H=1 
1620 IF0<2 THEN H=1 
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1630 IF H=2THEN PL0T0,P,"p" 

1690 IF G0=2 THEN PLOTOO,CQ," " 

1700 IFGK1BAND M<10ANDU<18AND 60=1THENG0=2:B=0:00=35:CO=INT(RND(1)#6)+2 

1710 IF G0=2 THEN 00=00-4:C0=C0+2 

1715 IF 00<2 THEN G0=1 

1740 IF G0=2THEN PLOT 00,CO,"wx" 

1810 IF R>20 THEN A=1 

1015 :IFA=2 AND SCRN<R,S)<>32 THEN EXPLQDE:A=1:G0SUB4000 
1820 IF PEEK(#200)=132THEN R=X:S=Y:A=2: ZAP 
1830 IF A=2 THEN R=R+2:S=S-1 

1040 IFA=2 AND SCRN(R,S)<>32 THEN EXPLODE:A=1:G0SÜB4000 
1850 IF A=2 THEN PLOT R,S,"h M 
1900 F=F-0.1 

1990 PLOTF,24," " 

1991 IF F<=21 THEN 3000 

2000 UNTIL X=89 

2001 REM*#************************** 

2002 REM FIN DE LA BOUCLE DU JEU ** 

2003 REM**************************** 

2004 REM 

2997 REM**#*#****#****************** 

2990 REM GESTION DES VIES PERDUES '** 

2999 REM**************************** 

3000 11= SCRN(X,Y): IJ=SCRN<X+l,S> 

3001 POKE(#208),0 

3100 : :PLOTX,Y,“#*":WAIT15s PLOTX,Y," “:F=30:W=W-2 

3110 IFW=4THENCLS:INPUT"VOUS RECIDIVEZ";A$:IFA*<>"0"THEN3110ELSERUN 
3200 WAIT200 
3205 CLS 

3210 PL0T4,4,"ababab“:PLOTW,4, “ 

3500 G0T0495 

3900 REM*************************** 

3901 REM** GESTION DES BATIMENTS * 

3902 REM** DETRUITS. * 


3903 REM*************************** 

4000 IFQ=<XORX+1)ANDP=YTHEN:PLOTQ,P," “:H=1 
IFR=000RR=00+1ANDS=COTHENPLOTOO, CO, " 

IFR=00—20RR=Q0-1ANDS=CO+1THENPLOTOO,CO," 
IFR=U0RR=U+1ANDS=T+10RS=TTHENPL0TU,T," 

IFR=QORR=Q+1ANDS=L+1ORS=LTHENPLOTQ,L," 

4030 IFR=M0RR=M+1ANDS=N+2THEN A=1 

4040 IFR=GHAND S=GKTHENLI=2:PLOTGH,GK, H ":SC=SC+10000:PL=0 
4500 RETURN 


4010 

4011 
4020 
4025 


G0=1:SC=SC+500G 

":GO=1 :SC=SC+1Û00 
:PLOTU,T+l," ":C>1:SC=SC+10Û0 

":D=1: SSC+2000 


:PLOTQ,L+l," 


5990 END 
6001 PING 


6050 RETURN 
6060 END 

6999 REM **************** 

7000 REM * INSTRUCTIONS * 

7001 REM **************** 
10000 CLSsPAPERO:INK3 
10010 PRINT: PRINTCHR*(27) : 
10020 PRINTCHR*(27 >;"N";" 


"N"; " ab ZAXXON ab 11 

ab ZAXXON ab" 

ï 0030 PR INT : PR INT : PR INT : PR INT : PR INT : PR INT"A>OBLI QUE GAUCHE " 
10040 PR INT M Z >OBL I QUE DROITE" 

10050 PRINT"< ESPACE > >TIR 

10060 PRINTSPRINTSPRINT "ij 1000 mn 2000 wx 5000 y 10000" 
10065 PRINT"kl kl " 

10070 PRINT s PRINT"qr INDESTRUCTIBLE"sPRINT"stPRINT'^iv" 

10080 PRINT: PRINT:PRINT"p RESERVE DE CARBURANT" 

10100 GETA» 

10110 CLS 
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10200 RETURN 

10299 REM ******* 

10300 REM * FIN * 

10301 REM ******* 


ORIC 


EDDYLODE 


Collectez vingt trésors qui ressemblent à des paquets 
cadeaux sans vous faire prendre par les ennemis qui sont à 
vos trousses. Trois tableaux pour vous exercer à la voltige, 
grimper aux échelles, descendre dans des trous de gruyère... 


o ’************* 

1 ’* EDDY LODE * 

2 ’ * R.JUHEL * 

3 ’************* 

4 ’ 

5 PH= 1 

6 A<1) =65: A (2) ==90: A (3) =60: A (4) =62: A (5) =77: ZT=700 
0 G0SUB1040 

10 P0KE610,10:CLS: PRINT:PAPERO: INK6 

14 DOKE10,48000:PRINT" MICROJEUX - EDDY LODE - R.JUHEL 

20 CLS: PRINT: PRINT" MENU":PRINT" - 

30 PRINT: PRINT: PRINT" <1> INSTRUCTIONS" 

40 PRINT" <2> JOUER" 

50 GETZïîIFZ$="1"THEN GOSUB12010 
60 CLS 

100 B0=21:LE=1:G0SUB2000:GOSUB1300:G0SUB11510:G0SUB500 

101 CLS 

110 B0=17:LE=2:G0SUB3000:GOSUB1300:GOSUB11510:G0SUB500 

111 CLS 

120 B0=17:LE=3:GOSUB4000:GOSUB1300:GOSUB11510;G0SUB5O0 
130 PRINT"BRAVO":GETZ$ 

140 PRINT"LE TEMPS EST DIMINUE DE 50 UNITES." 

150 PRINT"DEPECHEZ VOUS!!!!" 

155 ZT=ZT-50 
160 WAITl00;GETZ$ 

170 G0T060 

499 *************** 

500 ’ * BOUCLE JEU * 

501 *************** 

510 GOSUB 1300 
520 T=ZT 

590 XY=40963:W=32:DI=1:G=1 

591 XY(1)=48163:XY <3)=40554:L=1: DI<1)=1:DI(3)=3:C<1)=32 ;C(3)=32 
595 PL0T35,25,STR*(LE) 

600 REPEAT:P=PEEK(#208):IFP< >56THENP0KEXY,W 

601 X1=PEEK(XY—40):X2=PEEK(XY):X3=PEEK<XY+40) 

602 IFX1=107QRX2=106THEN610 

603 IFX3=107THENP0KEXY,32:XY=XY+40:W=107:XC=1:60T0665 

604 IFX3=10BTHENB0=B0—1 :X3=32:W=32:SC=SC+100:G=1 

605 IFX3=32THENP0KEXY,W :XY=XY+40:W=32:DI=1:GOTO60O 
610 IFP=100ANDPEEK < XY+1)< >105THENXY=XY+1:DI = 1 

620 IFP=172ANDPEEK < XY-1)< >105THENXY=XY-1:DI=3 

630 IFP=180ANDX3< >(105AND107)THENXY=XY+40:DI=5:IFDI<>106THENDI = 1 

640 IFP=156AND<(Xl<>105ANDW=106)ORX1 = 106)THENXY=XY-40:DI=5: IF X1<>106THEND1 = 1 



146 




665 IFP056THEN W-PEEK(XY) 

666 IFW=100THENBO=BO-1 : W=32:SC=SC+100:6=1 
670 IFPEEK(XY—40)=107THENDI=7 

6B0 POKEXY,(96+DI+R) 

690 L=“Ls A*=L+2: F=2-L: POKEXY (F) ,C(F) 

692 IFXY(1)=XYGRXY(2)=XYTHEN 60T07000 

693 IFXY>XY(A)+40ANDPEEK(XY(A)+40)< >1Q5THEND=40:G0T0720 
696 IFXY< XY (A) —40ANDPEEK < XY (A) -40 K >105THEND=-40î G0T0720 

699 IFXY>XY(A)ANDPEEK(XY(A)+1)< >105THEND=1: DI(A)=1 :GQT0720 

700 IFXY<XY(A)ANDPEEK(XY(A)-1)< >105THEND=-1: DI(A)=3:60T0720 
710 D«0 

720 POKEXY(A),C(A):XY(A)=XY(A) +Dî C <A)=PEEK(XY(A))ïPOKEXY(A) , 

730 IFR(A)=OTHENR(A)=1ELSER(A)=0 

740 IFXY(1)=XYORXY(3)=XYTHEN7000 

700 IFG=1THEN PLOT0,25,STR*<SC):G=0 

705 T=T—1 :PRINTà21,25;STR*(T) ; " ":IFT=0THEN 7000 

709 IFR=OTHENR=1ELSER=0 

790 UNTILB0=0 

000 RETURN 

004 7 ************** 

005 ’* FIN BOUCLE * 

006 ’************** 

1039 ’ ******************************* 

1040 ’* REDEFINITION DES CARACTERES * 

1041 ’******************************* 

1050 FORI^OTOl11:READZ:POKE46056+I,Z :NEXT:RETURN 

1199 '*************** 

1200 ’* BAS D”ECRAN * 

1201 ’*************** 


1300 

PLQT2,24," 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

1320 

PL0T2.25," 

SCORE: 

iiiiiii TIME: iii iiii LEVEL: i i " : Kt!l ukn 

1996 

* ************* 



1997 

’* TABLEAU 

1 * 



1990 

? ************* 



2000 

PRINT: PRINT"iiiiiiiiiikkkkiii 

iiiiii iiiiii" 

2001 

PRINT"! 

1 

1 

j 1 iii" 

2002 

PRINT"i iiijiiii 

iiiiiiiii 

jiiiiii ii" 

2003 

PRINT"! 

j 

j 1 iiiii 

j i i i " 

2004 

PRINT"iii 

j mi ji m in 

•H 

»— 1 

•H 

n 

2005 

PRINT"ii 

j 

j i i 

j iiiiii i" 

2006 

PRINT"ii 

j 

j kkkkkk k k 

j i" 

2007 

PRINT"ii 1 

j 

j 

j 1 j iiii" 


2000 PRINT"iiii j iiiiiji iijiiij 1 i 


2009 PRINT"ii j iiiij 

2010 PRINT"ii j iij 1 iiiii 

2020 PRINT"ii jl ijiiii i 

2021 PRINT"iiiiiii ij il 

2022 PRINT"i kkk j iii iii 

2023 PRINT"i j j il 

2024 PRINT"i iiiii 

2025 PRINT"i 1 

2026 PRINT"ii>ii 

2027 PRINT"i 

PRINT"i 1 j 

PRINT"iiiiiiiiiii 
PRINT"! 

PRINT"i 


J 1 
j J 
J J 
jiii i i 
J 

1 j 1 


2020 

2029 

2030 

2031 


j J 

jiiii i ii iij ii 
j lii 1 jiiiii 

j ii iiii ji j. 

j kkkkkk jji ji 

j jji Jl 

iiiiiijjiiiii 
jji 
ji 1 


111 j i 

j i 
ji 
i ji 
ji 
ji 
i i ji 
i i i j i 

1 ji 
i i ji 
ji 

i i i ji ' 
ji 
j i ' 


2050 RETURN 

2996 ’ ************* 

2997 ’* TABLEAU 2 * 

2990 "************* 

3000 PRINT:PRINT"i kkkkkkkkk 

3001 PRINT"i 1 


i " 


(96+DI < A)+R(A) ) 


► 
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3002 PRINT"iijiiiiiiijii 

3003 PRINT"i j j 

3004 PRINT"i j j 

3005 PRINT"i j j 

3006 PRINT"! j 

3007 PRINT"! 1 

3008 PRINT"i iiiijiiiiii 

3009 PRINT"i jkkkkkk 

3010 PRINT"i 1 j 

3011 PRINT"iiii j 1 

3012 PRINT"i j iii 

3013 PRINT"! j 

3014 PRINT"i j 

3015 PRINT"iiiiiiill 1 

3016 PRINT"i ii 

3017 PRINT"! 


im juin 
j 


kkkkkkk 


iiiijiiiiin lj i 

jkkkkkkkkkkkkkkiiiiiiiiiiii i" 
1 j 1 !" 

iijl iiij 1 i" 

j iii iiij iiiiiiiiiiijiiii" 
j iiij ji" 

j iiij 1 j i" 

iiiiiii 1 iiiiiiiiiiijiiiiiiii i" 
ii j i" 

1 j 1 i" 




301B PRINT"ii iiiiiiiiijiiiiiiiiiiij iiiiii 

3019 PRINT"i 1 jkkkkkkkkkkkj i 

3020 PRINT"i iii 1 j j 1 i 

3021 PRINT"! jiiiiii * iiiiiiij i 

3022 PRINT"i j I j i 

3023 RETURN 

3996 ”*####******* 

3997 ’* TABLEAU 3* 

3998 ’************ 

4000 PRINTsPRINT"ikkkkkkkkkkkj 

4001 PRINT"i jiiiiij 

4002 PRINT"i 1 j ij 

4003 PRINT"iiii j i iiii j 

4004 PRINT"i j ij 

4005 PRINT"i iijiiiiii ij 

4006 PRINT"ij 1 ilj i ij 

4007 PRINT"ijii ijii iiii ij 

4008 PRINT"iji iji jikkkij 

4009 PRINT"iji iji iiji ij 

4010 PRINT"iji ij 1 i jii ij 

4020 PRINT"iji iijiii ji 1 ij 
4030 PRINT"iji ji i ij 

4040 PRINT"iji iiiiiiiiii ij 

4050 PRINT"!j 1 ij 

4051 PRINT"ij ijii ij 

4052 PRINT"ij j ij 


j 

jii i i i 
j 

ilj i 


i ji i 
iji 
iji 
ij 1 


i i i i 


i j 

j i i i i 
i j i i i i i 
ijiii iiii 
i j 1 i i 
ijiiiii iii 


J ü 
ji i i 
j i 


jikkkij 


i i ji 
i jii 




iiiiiiiiiiiiii" 
kkkjkk i" 


4020 PRINT"iji iijiii ji 1 ij 1 
4030 PRINT"iji jiiijiii 

4040 PRINT"iji iiiiiiiiii ij ii 

4050 PRINT"!j 1 ij 

4051 PRINT"ij ijii ij 

4052 PRINT"ij j ij 

4053 PRINT"iiiiiiiiiiii jiiiij 1 

4054 PRINT"i kkkkkkkkkkkj ij iii 

4055 PRINT"!1 j ij 

4056 PRINT"ii j ij 1 

4057 PRINT"i j ijiiii 

4058 PRINT"i j ij 

4060 RETURN 

7000 CLS:PRINT" PERDU"!PRINT:PRINT 
7005 PRINT"VOTRE SCORE":SC 
7010 GETZ$:RUN 
BBOO RETURN 

9999 ’***********«******* 

10000 '* DATA CARACTERES * 

10001 '******************* 

10100 DATA6,4,30,7,6,30,18,3 
10110 DATA6,4,14,22,7,14,20,6 
10120 DATA24,0,30,56,24,30,18,40 ( 

10130 DATA24,0,28,26,56,20,10,24 ’ 

10140 DATA45,41,63,45,45,43,43,49 

10145 DATA45,41,63,45,45,43,43,49 

10146 DATA45,41,62,12,12,20,36,40 

10147 DATA45,37,31,12,12,10,9,5 


i i i i i 
iiii 


i j mi 

i j 

i j 1 i 
ijiiiii 
i j 


iiiiiiii 


iiiijii" 
j i " 
j i" 
lj i" 


mi i 

iiiiiiiiii" 
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10160 DATA59,59,59,0, 47, 47, 47 , 0 
10170 DATA33,63,33,63,33,63,33,63 
10ISO DATAO,0,0,0,0,0,0,63 
10190 DAT AO,0,0,54,54,0,54,54 
10200 DATA12,12,20,47,12,12,10,33 
10210 DATAO,0,0,0,0,0,0,0 

11499 7 ********* 

11500 7 * CADRE * 

11501 7 ********* 

11510 PL0T2,0,"iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii" 

11512 PL0T2,24,"iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii" 

11513 RETURN 

11999 7 **************** 

12000 7 * INSTRUCTIONS * 

12001 '**************** 

12010 CLS:PRINT: PRINT" INSTRUCTIONS": PRINT 

12020 PRINT" a > VOUS MEME." 

12030 PRINT" 1 > TRESOR A RECUPERER." 

12040 PRINT" m > ENNEMIS A EVITER": PRINT" ATTENTION ILS SE DEPLACENT"; 

12045 PRINT" DANS L'ESPACE." 

12050 PRINTSPRINT 

12060 PRINT" a j kkkk " 

12070 PRINT" i i i -f h 
120B0 PRINT" j " 

12090 PRINT: PR INT"-" 

12100 PRINT" VOTRE TEMPS EST LIMITE." 

12110 PRINT" IL Y A 3 TABLEAU DIFFERENTS." 

12115 PRINT" LES DEPLACEMENTS S'EFFECTUENT":PRINT" AVEC LES FLECHES." 

12120 PRINT" BONNE CHANCE." 

12130 PRINT: PRINT" <PRESSEZ UNE TOUCHE>" 

12140 GETZ$:RETURN 

12999 7 ******* 

13000 ’* FIN * 

13001 ******** 


ORIC 


CATERPILLAR 

Ce logiciel propose cinq tableaux de difficulté 
croissante. Une chenille se promène dans un labyrinthe où 
elle doit collecter le plus de pilules d'énergie possible. 
Mais attention, si elle se mord la queue, elle meurt ! 


B 

0 REM*************** 

1 REM* CATERPILLAR * 

2 REM*************** 

3 REM R.JUHEL 

4 PAPER4:INK7 

5 G0SUB5000 

6 ’****************** 

7 =■# INITIALISATION * 

Q 7 ****************** 

10 P0KE6 18,10: CLS:G0SUB6000: CLEAR 
20 TI=500:DIMX(30):DIMY(30):GOTOIOOO 
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29 7 

************ 



30 7 

♦ CONTOURS * 



31 7 

************ 



40 CLS:PRINT 

50 PRINT"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ'' 
60 F0RI=1T021: PRINT"Z 

70 PRINT"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

Z" 

: NE X T 

00 RETURN 



89 7 

************** 



90 7 

* OBSTACLE 1 * 



91 7 

************** 



100 

FORI=0TQ3: PLOTA,B+1,"Z Z Z Z": NEX T:RETURN 



109 

’************** 



110 

7 * OBSTACLE 2 * 



111 

7 ************** 



120 

FOR I =0T03 s PLOTA, B+I, "Z": NEXT : PLOTA+1, B, " Z Z Z 11 : 

RETURN 


129 

7 ************** 



130 

7 * OBSTACLE 3 * 



131 

7 ************** 



140 

PLOT A+2,B,"ZZZZ":PLOTA+1,B+l,"ZZZZZZ":PLOTA, 

B+2,"ZZZZZZZZ" 

150 

PLOT A+2,B+5,"ZZZZ":PLOTA+ î,B+4,"ZZZZZZ": F’LQTA,B+3,"ZZZZZZZZ" 

160 

RETURN 



169 

7 ************** 



170 

7 * OBSTACLE 4 * 



171 

7 ************** 



100 

FORI=0T03:PLOTA,B+1,"Z":NEXT:PLOTA+1,B+3,"Z Z Z 

":RETURN 


190 

RETURN 



199 

7 ************** 



200 

7 * OBSTACLE 5 * 



201 

7 ************** 



210 

F0RI=0T03:PL0TA+3,B+I,"Z":NEXT:PLOTA,B, "1111" 

:RETURN 


219 

7 ************** 



220 

7 * OBSTACLE 6 * 



1 221 

7 ************** 



230 

FOR I =0TO3 : PLOTA+3, B+ 1 , " Z " s NEXT : PLOTA, B+3* "ZZZZ 11 : RETURN 


250 

RETURN 



399 

7 ************* 



400 

7 * TABLEAU 1 * 



401 

7 ************* 



403 

G0SUB30 



405 

F0RB=3T020STEP7 



410 

F0RA=4T035STEP7:G0SUB90:NEXTA 



420 

NEXTB 



450 

F0RN=2T026STEP5: F0RM=3T037STEP7: PLOTM, N, "C" NEXTM, N: RETURN 

454 

7 ********* 



455 

7 * DECOR * 



456 

7 ********* 



460 

D=4:N=5:TE=TI 



470 

FORI = lT05:X <I) =8-1 : Y <I)=2:NEXT:FORI = 1T04:PLOTX(I),Y(I>, 

NEXT 

490 

PL0T3,25,"TEMPS: SCORE: " 



495 

J = 1 



497 

7 ************** 



490 

7 * BOUCLE JEU * 



499 

7 ************** 



500 

REPEAT 



501 

TE-TE-1:IFTE=0THENG0T0700 



502 

PLOT10,25,STR$ < TE )+" ": PL0T28,25,STR$ (SC) 



510 

P=PEEK ( #200 ) 



515 

IFP=18BTHEND=4 



520 

IFP=172THEND=2 



530 

IFP=10OTHEND=3 
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535 IFF-156THEND=1 

536 XC=X(N):YC=Y(N) 

537 11=0 

540 FQRI=NT02STEP-1:X(I)=X(1-1): Y<I)=V(1-1)sNEXT 

541 G0SUB600:W=SCRN( X ( 1 ) , Y ( 1 ) ) 

542 IF W=91ANDJ = 1THENN=N+1 : X(N)=XC:Y(N)=YC:BD=B0-1:SC=SC+10:J=0:11 = 1 

543 IFW=91AND11=0ANDJ=OTHENSC=SC+10s J=1 sBÜ=BO-1 
547 IFW<>91ANDW<>32THEN700 

550 PLOTX (1 ) , Y ( 1 ) , "V 
555 PLOTX(N), Y (N)," " 

599 UNTILB0=0s RETURN 

600 IFD=5THEND=1 
605 IFD=OTHEND=4 

610 IFD=1THENY(1)=Y(1)—1 sRETURN 
620 IFD=2THENX<1> =X(1)-1:RETURN 
630 IFD=3THENY(1)=Y(1)+1 s RETURN 
640 IFD=4THENX<1)=X <1)+1 :RETURN 

644 »#**##**##*###**** 

645 ** FIN DE PARTIE * 

646 ’•####**#*#*#*##*#* 

650 CLS:PRINT"BRAVO_"s 

660 PRINT"vous voyez tout arrive." 

670 G0T0710 

700 CLSsPRINT" C”EST FINI ,MAIS IL FAUT PERCEVERER." 

705 PRINT" VOTRE SCORE EST "; SC 

710 INPUT" vous récidivez (0/N)";0*sIF0*="0"THENRUN ELSE CLS: END 

789 ’ #**#**#**##** 

790 ’ * TABLEAU 2 * 

791 ’ 

800 CLS: G0SUB30 

810 FORA=5T037STEP12:F0RB=3T020STEP10:GOSUB110: NEXTB,A 
820 FORA=9T037STEP12:F0RB=3T020STEP10 s G0SUB200: NE X TB,A 
830 FORA=5T037STEP12:F0RB=7T020STEP10:GOSUB170: NE X TB,A 
840 F0RA=9T037STEP12:F0RB=7T020STEP10:G0SUB220:NEX TB,A 
050 F0Rl y I=3T039STEP7: F0RN=2T022STEP10: PLOTM, N, "C" :NEXTN,M 
900 RETURN 

903 ’******i****** 

904 '* TABLEAU 3 * 

905 'Un*##*###*#### 

906 G0SUB30 

910 A=16:B=9:GOSUB130 

920 F0RA=4T037STEP5:B=3:G0SUB90:NEXTA 
930 F0RA=4T037STEP5:B=17:G0SUB90:NEXTA 
940 GOSUB10000 
950 RETURN 

958 '#***###*#**** 

959 ’* TABLEAU 4 * 

960 ' 

961 CLSsPRINT :PRINT"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

962 PRINT"Z Z" 

963 F0RI=1TQ10:PRINT"Z ZZZZZZZZZ" 

964 PRINT"Z Z Z Z Z" 

965 NEXT:PRINT"ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 

969 GOSUB10000 

970 RETURN 

999 ’**%*%%%**%%***%**%****** 

1000 ’* GESTION DES TABLEAUX * 

1001 ’ J»:**##*##**###**#»***##** 

1005 B0=25s G0SUB400:G0SUB460 
1O10 B0=1B: GOSUBBOOs G0SUB460 
1020 B0=25s G0SUB905:G0SUB460 
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1030 B0=25:G0SUB960:Q0SUB460 
1040 TI=TI-50 
1100 GOTO1000 

4999 7 ******************************* 

5000 7 * REDEFINITION DES CARACTERES * 

5001 ’******************************* 

5010 F0RI=0T023:READZZ:P0KE46800+I,ZZ:NEXTs RETURN 
5020 DATA63,63,63,63,63,63,63,63,00,12,18,45,45,18,12,0 
5025 DATA12,30,63,63,63,63,30,12 
5400 7 **************** 

5500 7 * INSTRUCTIONS * 

5600 7 ***#*#*#***##<1** 

6000 DOKE10,48000: PRINT" CATERPILLAR" 

6010 CLS:PRINT : PRINT" vous devez absorber les capsules d'enerqies £ et"; 
6015 PRINT" éviter les parois." 

6020 PRINT"votre temps est limite." 

6030 PRINT"il decroit au -fur et a mesure." 

6100 GETAA*:GETAA*:RETURN 

6400 7 *************************** 

6500 7 * DISPERSION DES CAPSULES * 

6600 7 *************************** 

10000 Z=0 

10005 M=INT <RND(1)*35)+3:N=INT(RND(1)*21)+3 
10010 IFSCRN(M, N) < >32THEN10005 
10015 PLQTM,N,"£" 

10020 Z*=Z + 1:IFZ<25THEN10003 
10030 RETURN 

10039 ******** 

10040 7 * FIN * 

10041 ******** 

■ 


ORIC 

RESCUE 


Des parachutistes largués par leur avion en flamme 
espèrent votre aide. Ils ne doivent pas atteindre 
le sol inhospitalier et sont déviés par un vent d'enfer. 
Sous le feu de F 16 ennemis qui cherchent à 
détruire votre hélicoptère, allez-vous réussir à les sauver ? 


0 REM ****************** 

1 REM* RESCUE * 

2 REM* R.JUHEL 1906 * 

3 REM****************** 

4 REM 

5 PAPERO:INK5 :P0KE619.10ï B=25:CLS 

6 REPEAT 

7 PL0T5, B „ " RESCUE " : WAIT15:CLS 

0 B=B-1 

9 UNTIL B—1 

10 GDSUB2050 

11 REM 

12 REM REDEFINITION DE CARACTERES 

13 REM 


14 FOR A=OTO07 

15 PING 
20 READ B 

30 P0KE46856+A,B 
40 NEXT 

50 DATA2B,23,16,31,0,0,0,0 
60 DATA60,14,3,3,14,60,2,6 
70 DATAIS,28,4B,40,20,15,1 
80 DATA60,7,0,7,56,48,34,6 
90 DATA 14,58,2,62,0,0,0,0 

95 DATA 63,63,63,63,63,63,63,63 

96 DATA15,56,0,56,14,3,1,31 

97 DATAO,0,0,0,0,0,63,0 

98 DATA60,15,15,7,15,15,60,0 


M Ch K) 







99 DATAO,O,56,62,56,0,0,0, 
42,20, b", 20 

104 R Eli 

105 REM INITIALISATION 

106 REM 

110 PAPER6:INKÛ 
115 CLS 

120 PL0T2,24,20 
130 PL0T2,25,20 

200 A=20:B—10 

201 K=l:R=OsX=5:Y=15 


202 V<1)=2:W(1)=7 

203 V(2)=12:W<2>-20 
250 PL0T3,2,"RESCAPES:" 

260 PLAYO,1,4,50 

269 REM 

270 REM BOUCLE JEU 

271 REM 

299 REPEAT 

300 R=R+1sIFR=4THEN R=1 

310 P$=KEY$: IFP$< >"" THEN X*=P* 
316 IF K—1 THEN PLOT A,B," h 


317 IF K=2 THEN PLOT A,B," h " 

31 B IFX*<> H,, THEN PLOTA,B, " " : PLOTA, B+l , " 

320 IF X$= ,, A" AND B>5 THEN B=B-1 

330 IF X*="Z n AND B<23 THENB=B+1 

340 IF X$="."AND A>2 THENA=A-1:K=1 

350 IF X$="/"ANDA<35 THEN A=A+1:K=2 

370 IF K—1 THEN PLOT A,B+l,"cde":PLOTA,B,"h " 

3S0 IF K=2 THEN PLOTA,B+l, "aqb" :PLOTA,B, M h " 

301 IFB+1=YAND ( X=A0RX=A+10RX=A+2)* THENX=3B: RE=RE+ 1 : GO'T0510 
382 IFB+1=24THEN B0T02000 
305 FOR1=1T02 

390 PLOTV(I),W<I)," 

391 V(I)=V<I>+1 

392 IFROIAND W(I)>B+1 THEN W(I)=W<I)-1 

393 IF W(IXB+1ANDR01 THEN W(I)=W(I>+1 

400 IF V(I)-38THENW(I)=INT(RND(1)*17)+6 : V(I)=2 

410 PLOTV <I),W(I),"ij" 

411 IF VCIX36 THEN412 ELSE 415 

412 IF W(I)=B+1 AND V<I>>=A AND V< I )<=A+3THEN 2000 


391 

392 

393 
400 

410 

411 

412 

413 IF W < I ) =B+1 AND V(I)+2>*A AND V(IX=A+1 THEN 2000 
415 NEXT 

421 IF W <1)=W(2) THEN S=S+1 ? 

500 PLOT X, Y, " " :X=X+1 f 

505 Y=Y+0.25 j IV; 

510 IF X-3B0RINT(Y)=25THENY=INT(RND(1)*17)+6 : X=2 J\ *j 

520 PLOTX,Y, "k" < fi 

530 IFB+1=YAND(X=AQRX=A+10RX=A+2)THENX=3B:RE-RE+1: 60 T 0510 fi- 
600 PL0T5, 3, STR* (RE) 

1000 UNTIL A=90 / 

1490 REM I v / / 

1500 REM FIN DE PARTIE J ^ J/^ 

1510 REM / 

2000 PING: EXPLODE 

2005 WAIT200: CLS ^ 

2010 PRINT"PERDU'‘ TgBBfâp? 

2015 PR I NT "VOUS AVEZ SAUVE " ; RE; " PARACHUTISTES" 

2020 INPUT"VDUS RECIDIVEZ <0/N>";A$ 

2030 IFA$= "0"THEN RUN ELSE CLS: END / 

2040 REM ' :f 

2050 REM INSTRUCTIONS 
2060 REM 

2070 CLSSPRINT:PRINT" RESCUE" 

2080 PR INT" -" 

2090 PRINT:PRINT 

2100 PRINT"VOUS PILOTEZ UN HELICOPTERE . VOTRE BUT:" 

2110 PRINT"SAUVER LES PARACHUTISTES EN LES RECEUILLANT 

2120 PRINT"HELICOPTERE." 

2130 PR INT"IL FAUDRA EVITER LES F-16 ENNEMIS QUI TENTERONT DE 
2140 PRINT:PRINT 

2150 PRINT"-" 


V(I)+2>®A 


V(I)<=A+1 THEN 2000 


'if. 

k t 







2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


£ ... 
■■ j ■■ /■ 


BORD DE 


VOUS DETRUIRE. 


2160 PRINT" LES 

2170 PRINT" - 

2180 PRINT" 

2190 PRINT" A>HAUT Z>BAS 


LES TOUCHES" 


2200 PRINT:PRINT" .>GAUCHE />DROITE‘ 
2210 PRINT:PRINT"<PRESSEZ UNE TOUCHE! 
2220 GETZ* 

2230 RETURN 
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ORIC 


QUAI DES ORFEVRES 

La police judiciaire vous confie la difficile 
mission de reconnaître le truand à l'aide d'un portrait- 
robot que vous n'avez eu sous les yeux que quelques 
instants. Arriverez-vous à vous souvenir de tous les détails ? 


0 REM********************** 

1 REM* QUAI DES ORFEVRES * 

2 REM********************** 

3 REM R.JUHEL 1905 

4 REM INITIALISATION 

5 TEXT:P0KE618,10:CLEAR:RESTORE:GQSUB2000 

6 CLEAR :CLS 

7 REM NIVEAU 

9 CLS: INPUT"NIVEAU DE DIFFICULTE (1-DUR A 10—FACILE)"; AM:IFAM<1QRAMM 

10 AM=AM*20:HIRES:PAPER7:INK7 

11 C(1)-110:C<2)=140:C(3)=160:D(1)=250:D(2)=270:E(1)=200:E(2)=220:E(3) 

12 E(4)=310 

13 C$ ( 1 ) ="MECHE": C* <2) = "CHAUVE" : C$ (3) = "CHAPEAU*' : D* < 1 >="NEZ FIN" 

14 D* (2) ="NEZ BOXEUR":E*<1)="GRAIN":E$ (2)="LUNETTES":E* <3)="F0SSETTE" 

15 E*(4)="CICATRICE" 

16 DIMID(100) 

20 60T0400 

30 REM DESSINS 
50 REM VISAGE 

60 A=X:B=Y:CURSETA,B,1:DRAWO,16,1:DRAW4,2,1:DRAW7,0, 1 
70 DRAW2,—3,1:DRAW0,-15,1 :CURSETA+4,B+l3,1:DRAW5,0,1 
BO CURSETA+7,B+4,1 :DRAWO,6,1 :CURSETA-1,B+4,1:DRAWO,4, 1 
90 CURSETA+14,B+4,1 :DRAWO,4,1 
100 CURSETA+4,B+4,1 :CURSETA+10,B+4,1 :RETURN 
110 REM MECHE 

120 CURSETA,B+3,1 :DRAWO,-7,1 :DRAW12,-3,1:DRAW1,9,1: DRAW-10,-4,1:DRAW-3 
130 RETURN 
140 REM CHAUVE 

150 CURSETA,B+l,l:DRAW3,-6,1:DRAW7,0,1:DRAW3,6,1 :RETURN 
160 REM CHAPEAU 

170 CURSETA+1,B—1O,1:DRAW11,0,1:DRAW1,7,1:DRAW5,3,l:DRAW-24,0,1:DRAW6, 
1BO DRAW1,-7,1 
190 RETURN 
200 REM GRAIN 

210 CURSETA+1l,B+0,1:RETURN 
220 REM LUNETTES 

230 CURSETA+2,B+3,1:DRAW9,0,1 :DRAWO,3,1:DRAW-4,-1,1 :DRAW-5,1,1: DRAWO,- 

240 RETURN 

250 REM NEZ FIN 

260 CURSETA+6,B+9,1 :DRAW2,0,1:RETURN 
270 REM NEZ BOXEUR 

200 CURSETA+5,B+10,1:DRAW3,0,1 :RETURN 
290 REM FOSSETTE 

300 CURSETA+7,B+16,1 :DRAWO,1,1:RETURN 
310 REM CICATRICE 

320 CURSETA+1,B+7,1 :DRAW2,2,1 :RETURN 

400 REM AFFICHAGE DES TETES ET DESCRIPTION 

410 AZ=INT(RND <1)*9)+1 :Z=0 

500 F0RX=20T0200STEP90:F0RY=20T0150STEP60:G0SUB50: 

505 Z=Z+1 


0THEN6 


=290 


, 5 , 1 


-3, 1 
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510 IA(2)=INT(RND(1)*3)+1 :GOSUBC <IA <Z)) 

520 IB(Z)=INT <RND(1)#2)+1 :GOSUBD (IB(Z)) 

530 F0RIC=1T04 

540 ID((Z-1)*4+IC)=INT(RND(1)*2)+1 
550 IFID((Z-l>*4+IC)=lTHENG0SUBE(IC) 

560 NEXT 
600 NEXTY,X 

620 PRINTC*(IA(AZ));;D$(IB(AZ));; 

630 F0RI=1T04 

640 IFID((AZ-l)*4+1>=1THENPRINTE$(I); 

650 NEXTI 

660 GETZ*:CLS:0=0:INKO:SS=SC 
665 REM TEST DE LA REPONSE 
670 F0RI=AMT01STEP-1: PRINT"TEMPS: " ; I 
675 WAITB : SC=SC+1 
600 K*=KEY*:IFK*<>""THENI=1:0=1 
690 NEXT 

700 IFO=OTHEN0OO 

710 K=ASC(K$)-48:IFK<1ORK>9THEN0OO 
720 IFIB(K)OIB(AZ)ORIA(K)<>IA(AZ)THEN0OO 
730 FQRI=1T04 

740 IFID ( (K-l)*4+I)OID( (AZ-l ) *4+1 ) THEN0OO 
750 NEXT 

760 CLS:PRINT"BRAVO.. . " ; :6ETZ* 

770 PRINT"VOTRE SCORE:"; SC:GETZ* 

7Q0 HIRES;PAPER7: INK7:B0T0400 
790 REM PERDU 
BOO SC=SS 

010 TEXT:PRINT"VOTRE SCORE:";SC 
020 INPUT "VOUS RECIDIVEZ (0/N)"; Z*:IFZS="0"THEN RUN 
030 END 

2000 REM PRESENTATION 
2005 CLS 

2010 DIMX(18):DIMY(18):DIMCH(18):DIMA(1B):DIMB(10) 

2020 F0RI=1T017:READA:CH(I)=A:NEXT 
2030 F0RI=6T023:X(1-5)= 1 : Y(1-5)=10:NEXT 

2040 DATA81,05,65,73,32,60,69,03,32,79,82,70,69,06,82,69,03 
2050 FOR1=1TOI7:A(I)=INT(RND(1)*34)+2:B(I)=INT(RND(1)*24)+1 
2060 PLDTA(I),B(I),CHR$(CH(I)) 

2070 NEXT 
2075 F0RJ=1T030 

2000 F0RI = 1T017:IFA(I)>X(I> THENGÜSUB3000: A ( I ) = A ( I ) -1 



2090 IFA(I)<X(I)THENG0SUB3000:A(I)=A(I)+1 
2100 IFB(I)>Y(I)THENG0SUB3000: B(I)=B(I)-1 
2110 IFB(I)<Y(I)THENGOSUB3000:B(I)=B(I)+1 

2115 PLOTA(I),B(I),CHR$(CH(I)) 

2116 IFKEY$< >""THENI = 17:J=30 
2120 NEXTI,J 

2125 REM INSTRUCTIONS 

2130 F0RI=1T050:PRINT:NEXT 

2140 PRINT" INSTRUCTIONS" 

2150 PRINT"VOUS VOICI PROMUS AU RANG DETECTIVE ,VOTRE BUT DECOUVRIR LES"; 

2160 PRINT" VISAGES DES CRIMINELS D'APRES UNE BREVE DESCRIPTION-"; 

2170 PRINT"VOTRE TEMPS EST LIMITE." 

2100 PRINT:PRINT"LE NUMERO DES PORTRAITS SONT PLACES COMME SUIT." 

2105 PRINT" 1 4 7"SPRINT" 2 5 0":PRINT" 3 6 9" 

2190 FORI=1T010:PRINT:NEXT:GETZS:FORI=1T050:PRINT:NEXT:RETURN 

2990 REM SOUS-PROGRAMME 

3000 PLOTA(I),B(I)," ":RETURN 

30010 REM****** FIN ************* 
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ORIC 


CAMEL'S BATTLE 

Aux commandes de votre vaisseau, le tableau de bord 
affiche les messages de la base qui communique avec vous. 
Des Xzorks déguisés en chameaux vous menacent et, 
pour les anéantir, il vous faut les toucher à dix reprises... 


1 

185 

IF66<>1960THENPRINT"ERREUR 

0 REM****************** 


DE DATA 11 : END 

1 REM* CAMEL’S BATTLE * 

190 

CLS:INPUT"INSTRUCTIONS (O/N)"; Z* 

3 REM****************** 

191 

IF Z $= " 0 M OR Z * = *'OUI " THEN60SUB9000 

4 REM 

192 

REM****************** 

5 REM************ 

193 

REM* ITIITIAL ISATION * 

6 REM* R.JUHEL * 

194 

REM****************** 

7 REM* 1906 * 

195 

REM 

B REM************ 

196 

CLS:60SUB8000 

9 REM 

200 

FOR I =21T025 

10 P0KE610,10s CLS:CLEAR 

210 

PL0T2,I,"eeeeeeeeeeeeeeeeeeeeeeeeee 

11 A$="cd ced ceed cdcdcd ceed 


eeeeeeeeeee" 

cd ced" 

220 

NEXT 

12 PAPEROsINK7 

300 

NI=NI+10:PLQT20,2,STR$(NI/10) 

29 REM****************** 

399 

REM 

30 REM* REDEFINITION * 

400 

FORI = 1T07: X(I)= 180+(1-1)*45:NEXTI 

31 REM* DES CARACTERES * 

405 

F0RI=lTO7:6H(I)=0:NEXTI 

32 REM****************** 

410 

F0RI=1T07: DE(I)=0:NEXTI 

50 FOR I=0T079 

420 

DF=INT(RND(1)*7+1):PRINTA3,75" 

60 READ A:06=60+A 


DETRUIRE LE XZORK "; DF;"AVANT" 

70 P0KE46856+I,A 

421 

PRINTA3,0;" QUE LE TEMPS SOIT NUL." 

00 NEXT I 

490 

A=2:1 = 1 :S=15:R=32 :W=1: 0=0:TE=500 

90 DAT AO , 0,14,62 , 62,7,0,0 

491 

X=92:Y=15:JB=0 

100 DATAO,0,20,31 , 31,56,0,0 

492 

Z=1:K=1:L=1:0=1:ZB=-1 

110 DATAI ,3,7,7, 15, 15,*31,63 

493 

REM 

120 DATA32,48,56,56,60,60,62,63 

494 

REM***************** 

130 DATA63,63,63,63,63,63,63,63 

495 

rem* Boucle du jeu * 

140 DATA12,12,12,12,12,12,12,12 

496 

REM***************** 

150 DATA12,12,12,12,12,12,18,30 

497 

REM 

160 DATA 12,12,12,24,24,24,36,30 

500 

REPEAT 

170 DATA 0,28,62,63,31,12,0,0 

501 

IFTE>0THENTE=TE-1 : PRINTà10,10;TE 

100 DATAO,0,0,0,0,0,0,0 

502 

IFTE=0ANDGH(DF)=0THEN7000 

505 L=-LîIFL=1THENFORI = 1T07:X < I )= X < I )- 1 

.NEXT 

I 

506 IFX <□) =ÛTHEN7000 

500 PRINTàlO,11 ; X(Q) ;" ";0;" X:";X 

510 IF PEEK(#200)=180 THEN A=lsZB=+l 

515 IF PEEK(#208)=172 THEN A=2:ZB=-1 

520 SN=SCRN(20+ZB,Y) : IFSN< >32ANDSN< >45THENEXPL0DE : GQTQ7000 

521 IFX<19THENX=19:A=2:ZB=-1 

522 IFPEEK ( #208 )= 132ANDV=0THENN=20 : M=Y : AC=1 : 

PLOTN,M, : PB=P:ZAP 

523 IFAC=0THEN530 

524 IFAC=1ANDSCRN ( N, M)< >45THEN6GSUB5000 

525 IFAC=1THENPLQTN,M, " ": V=V+1 : IFV=5THENAC= 

0: 0=0 

526 IFAC=1THENN=N+PB: IFSCRN <N,M) 032THEN 60SUB5000 

527 IFAC=1THENPLOTN,M, " 

530 IFPEEK(#200)=180ANDY<20THENPLQT20,Y, 

Il II m 

• 

Y=Y+1 

540 IF PEEK ( #208 ) = 156ANDY> 1 3THENPL0T20, 

/n “ " 

:Y=Y-1 

545 SN=SCRN(20,Y):IFSN<>97ANDSN< >90ANDSN< >32 

THENEXPLODE : GOT07000 

550 IFA=1THENPL0T20,Y, "b" : AS=MID*(A*,2)+LEFT* ( A*,1) : PL0T2,20,A* : X=X-1:F=+1 

560 IFA=2THENPL0T20,Y,"a" : A*=RIGHT*(A*,1 ) +LEFT*(A*,36)sPL0T2,20,A*:X=X+1 îP=- l 

565 IFJB=0AND X + 10>INT(X(K>)ANDA< >1THENR=2:W 

=0 : G0SUB3190 : JB=1 
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575 IFW=OTHENFORI=0T03:PLOTR,S+I, " ":NEXT 

587 IF JB-1THENIFA=1THENR=R-. 5ELSER=R+1.5 

595 IFW=OTHENPLOTR,S, "ceed*': PLOTR, S+l, "eeeei " : PLOTR, S+2, "-f-fff 11 

596 IFW=OTHENZ=—Z :IFZ=1THENPLOTR,S+3,“ghgh"ELSEPLOTR,S+3,"hghg" 

700 SN=SCRN(20,Y):IFSN< >97ANDSN< >90ANDSN< >32 THENEXPLODE 

000 IFINT(R)>32THENGOSUB3009;K=K+1:JB=0 

010 IFINT(R)=3ANDA=1THEN60SUB3099s JB=0 

020 IFA=1ANDX(K-l)>X-17.5THENG0SUB32B0ïK=K-1:JB=1 

2000 ÜNTIL KEY*="S":GETZ*:G0T0500 

2001 REM****************** 

2002 REM* FIN BOUCLE JEU * 

2003 REM****************** 4 

2990 END 

2997 REM*********************** \ ' 

2998 REM* VARIABLES CHAMEAUX * X/XO' 

2999 REM*********************** V A 

3000 A* ( 1 ) = M ceed " : A* <2) ="eeeei " : A* (3) = "f f -f f " ; A* <4) — "qhgh " : RETURN 

3006 REM********************* y, 

3007 REM* SCROLLING DROIT 1 * 

3008 REM********************* ** ' 

3009 G0SUB3000:IFW=1THENR=19:RETURN jÂ 

3010 F0RJ=5T00STEP~1 

3020 F0RI=1T04 gU 

3030 A* < I ) =LEFT$ < A* ( I ) , J ) ^ ^ 

3040 PL0T33, 14+1, •• L ÆS fcjrlrià 

3050 PL0T39-J, 14+1, A* < I ) 

3060 NEXTI 

3070 NEXTJs IFGJ< >5THENPL0T31,4, " ":W=1 ïR=19 

3080 RETURN 

3094 REM********************** / 

3095 REM* SCROLLING GAUSHE 1 * _^ / 

3096 REM********************** / U X ^ ~7 

3099 0OSUB3OOO! IFW=1THENRETURN / 

3100 FOR J=5T00STEP-1 jtijÉT Jm f - -^ ‘ 

3110 FOR 1*1 T04 -ir^'ro P V . w -> 

3120 A* ( I) =RIGHT* (A* (I ) , J) C Vy / 

3130 PL0T2, 14+1, " " .IbK/X 

3140 PL0T2,14+1,A* <I) ... ^ - *'Ht/ 

3160 NEXTJ : W=1 ^ 

3161 PL0T31, 4, " 

3170 RETURN 

3174 REM********************** 

3175 REM* SCROLLING GAUCHE 2 * 

3176 REM********************** ' Vf / L- T 1 

3190 Q0SUB3000: IFGH (K) =1 THENW= 1 î RETURN 

3200 FOR J=1T05 

3210 FOR 1 = 1 T04 A... - -, 

3220 A*(I)=RIGHT*<A*<I),J) 

3230 PL0T2,14+I," 

3240 PL0T2,14+1,A*(I) 

3250 NEXT I s IFGJ< >5THENPL0T12,4,STR*(K) :PL0T31,4,STR*(DE(K)) 

3255 G0SUB3000 

3260 NEXTJ 

3261 IFGH(K)=0THENPL0T31,4,STR*(DE < K)) 

3270 RETURN 

3274 REM********************* 

3275 REM* SCROLLING DROIT 2 * 

3276 REM********************* 

3280 G0SUB3000: IFGH(K-1)=1THENR=33ï RETURN 

3290 F0RJ=1T05 

3300 FOR1=1T04 

3310 A*(I)=LEFT$(A*(I),J) 

3320 PL0T33,14+1," 

3330 PLOT30-J,14+I,A*(I) 





J 





; PL0T31,4,STR*(DE(K)) 
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3340 

NEXTI 




3345 

GGSUB3000 




3350 

NEXTJ:W=0:R-33:IFGH(K-l)=0THENPL0T31 

,4,STR*(DE(K-l) >: PLOT12,4,STR$(K- 

1 ) 

3360 

RETURN 




3999 

REM******************** 




4000 

REM* ROUTINE DES TIRS * 




4001 

REM******************** 




5000 

DE(K)=DE <K)+1 : 




5001 

SHOOT 




5010 

V=0:AC=0 




5015 

PRINTà31,4; DE(K) 




5020 

IFDE(K)=NITHEN TU=TU+1 : GH < K > =1 :EXPLODE:GQSUB5200:W-l: JB=0 


5030 

IFTU=7THEN6000 




5040 

F0RI=7T01STEP-1 




5050 

IFGH(I)=OTHENO=I 




5055 

NEXTI 




5100 

RETURN 




5200 

F0RJ=1T010 




5210 

FQRI=0T03 




5220 

PLOTR,S+I,A* <I) 




5230 

NEXTI 




5240 

FORI=0T03 




5250 

PLOTR,S+I," 




5260 

NEXTI 




5270 

NEXTJsPLÛT31,4," " 




52Q0 

RETURN 




5299 

REM********* 




5300 

REM* GAGNE * 




5301 

REM********* 




6000 

CLS 




6010 

PRINT"FELICIT ATIONS UNITE ZX-67." 




6020 

PRINT"VOUS AVEZ REUSSI VOTRE MISSION 

AVEC 

BRIO." 


6030 

INPUT"VOULEZ VOUS ENCORE VOUS RENDRE 

UTILE 

?" ; Z* 


6040 

IFZ*< >"0"ANDZ*< >"QUI"THENCLS:END 




6050 

PRINT"VOTRE ADRESSE N'A D'EGALE QUE 

VOTRE 

COURAGE. 11 


6060 

PRINT"MAIS ATTENTION L'ESCOUADRE DE 

XZORKS 

QUE VOUS ALLEZ AFFRONTER 

SERA" 

6070 

PRINT" PLUS .DIFFICILE A ABATTRE 

QUE 

LES PRECEDENTES." 


6080 

TU=0:GETZ*:GETZ* 




6500 

GOTO195 




6B99 

REM********* 




6900 

REM* PERDU * 




6901 

REM********* 




7000 

WAIT50;CLS:PRINT: PRINT" UNE AUTRE PARTIE?" 



7010 

INPUTZ*; IFZ*«"0"0RZ*« , '0UI "THENRUN 




7020 

CLS:END 




7200 

STOP 




7899 

REM************************ 




7900 

REM* TABLEAU D'AFFICHAGE * 




7901 

REM************************ 




BOOO 

PRINT"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 


8010 

PRINT"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 


8020 

PRINT"e UNITE:ZX-67e MISSION no 

e 

e" 


8030 

FRINT"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ee 

e" 


8040 

PRINT"e XZORK no 1 e NOMBRE DE TIRSsO e e 

e" 


8050 

PRINT"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee ee 

e" 


8060 

PRINT"e MESSAGE: 

e 

e" 


8070 

PRINT"e 

e ee 

e" 


8080 

PRINT"e 

e e 

e" 


B090 

PR INT H .e 

e ee 

e » 


8100 

PRINT"e TEMPS: 

e 

e" 


8110 

PRINT"e DANGER: 

e 

e" 


8120 

PRINT"eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 


8130 

RETURN 




8899 

REM **************** 
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9900 REM * INSTRUCTIONS * 

8901 REM **************** 

9000 CLS 

9010 PRINT"0000000000000000000000000000000000000" 

9015 PRINT"0 0" 

9020 PRINT"0 TILT PRESENTE CAMEL’S BATTLE 0" 

9030 PRINT"0 0" 

9040 PR INT "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" 

9045 GJ=5:PRINT 

9050 PRINT"A L’AIDE DE VOTRE VAISSEAU VOUS DEVREZDETRUIRE LES HORDES SUCCESSIVE 
S" ; 

9051 PRINT" DE XZORKS." 

9060 F0RI=1T013:PRINT:NEXT 

9070 PRINT"VOUS VOUS DEPLACEZ AVEC LES FLECHES." 

90B0 PRINT"< SPACE > TIR." 

9100 Z=1:R=2:S=15:G0SUB3190 

9110 FORI=0T03:PLOTR,S+I," ": NEXT 

9115 R=R+1.5 

9116 W=0 

9120 PLOTR,S, "ceed" s PLOTR,S+l, "eeeei": PLOTR,S+2,"ffff " 

9130 Z=-Z : IFZ=lTHENPL0TR,S+3, "ghgh "ELSEPLOTR, S+3,"hghg" 

9140 IFINT(R)>32THENG0SUB3009:G0T09100 

9150 IFKEVX >" "THEN9210 

9200 G0T09110 

9210 GJ=6 

9230 RETURN 

10000 REM ******* 

10010 REM * FIN * 

10020 REM ******* 


ORIC 

METEOR 

Votre vaisseau spatial réclame du combustible. 

Les cartouches de fuel nécessaires à sa bonne marche sont 
détruites au fur et à mesure de leur apparition 
par des météorites que vous devez anéantir sans pitié. 


0 

7 *********************** 



1 

'*** METEOR R.JUHEL *** 



n 

3 

7 tttttttt*************** 

y 



4 

7 

? 

’ EFFACE LE CURSEUR,SUPPRIME LE SON ,EFFACE 

L'ECRAN 


B 

CLS ï P0KE618,10:PAPERO: INK7 



9 

'REDEFINITION DES CARACTERES 



10 

FORI=0T055:READAs P0KE46B56+1,A:NEXT 



11 

7 



20 

DATA42,21,42,21,42,21,42,21,8,12,10,18,33 

,63,0,0,0,48,44,35,34, 

44,48,0,0 

30 

DATA63,33,18,18,12,4,0,0,3,13,17,49,13,3, 

0,0, 12 , 30,63,63,30,12, 

0 

31 

DATAO,30,18,30,30,18,30,0 



32 

G0SUB700 



JO 

34 

' NIVEAU DE DIFFICULTE 



35 

CLS:INPUT" NIVEAU DE DIFFICULTE (1/5)";A: 

IFA<1QRA >5THEN35 


38 

V=7 



39 

’ DECOR 



40 

7 
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41 

42 
45 
50 
60 

64 

65 

66 
70 

75 

76 

77 
70 
79 
00 
B1 
82 
05 

90 

91 

92 

93 

94 

95 
100 
101 
102 

103 

104 
110 
115 
120 

129 

130 

131 

132 
135 
140 
150 
160 

170 

171 
100 
101 
290 

299 

300 

301 

302 

303 

304 

305 

309 

310 
320 
325 
330 
340 
350 
397 
390 

399 

400 
410 
420 
430 


FUEL: 


b b b 


FR INT" SCORE: 

PL0T30+V < 0," 

PRINT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 

FOR 1 = 1T023: PRINT"a 

PR INT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 

9 

" VARIABLES 

9 

M=1:X=20:Y=13:PX=0:PY=-1:F=500:B=0 

F0RI=1T0A: X < I ) = INT <RND < 1 ) *35) 4-3: Y < I ) =2: IFSCRN(X (I) 
NEXT 


'BOUCLE JEU 

9 

REPEAT 

PL0T10,0,STR*(S):PL0T24,0,STRt<F) 
F=F-1:IFF=0THEN500 
U=U+1 : IFU=10THENU=0:G0SUB600 
P=PEEK <#208) 

IFB=1THENPL0TBX,BY," " 

IFP=132THENZAP:B=1:G0SUB400:BX=X:BY 
IFB=1THENBX=BX+XB:BY=BY+YB 
IFB=1ANDSCRN(BX,BY)< >32THENG0SUB310 
IFB=1THENPLOTBX,BY," + " 

IFP=172THENM=M+1:J=1:IFM=5THENM=1 
IFM=1ANDJ=1THENPX=0:PY=~1 
IFM=2ANDJ = 1THENPX=1: PY*0 
IFM=3ANDJ=1THENP X=Û:PY=1 
IFM=4ANDJ=1THENPX=-1:PY=0 
IFP=10OTHENPLOT X,Y," ":IFSCRN(X+PX 
IFSCRN(X,Y)=103THENF=F+10 
PLOTX,Y,CHR«<97+M) 

I J = I J + l:IFIJ<4THEN80 
F0RI=1T0A 

IFB=1ANDX(I)=BXANDY(I)=BYTHENG0SUB310 
IFX ( I ) =®XANDY ( I ) =YTHEN5Û0 
PLOTX<I),Y<I)," " 

IFY <I)>YTHENY(I)=Y(I)-1 :GOTOIBO 
IFY(I)<YTHENY( I > =Y CI > +1 :GOTOIBO 
IFX < IXXTHENX (I )=«X (I ) +1 
IFX(I)>XTHENX <I)«X(I)-1 
IFB=1ANDX<I)=BXANDY(I> =BYTHENG0SUB31 
PLOTX(I),Y<I),"f" 

IFX(I)=XANDY <I)=YTHEN500 

J=0 

NEXT 

UNTILP=169 ^ 

’ FIN BOUCLE JEU 


a":NEXT 


<1 ) ) 



Y+PY)< >97THENX = X+PX:Y=Y+PY 


ROUTINE DE TEST DE LA BALLE 


W=SCRN(BX,BY> 

IFW=97THENB=0:RETURN 

SHOOT _" ' v_.,- 

F0RI=1T06 

IFX <I)“BXANDY(I)=BYTHENPLOTX( I ) , Y < I ) , 1 
NEXT 

9 

* CALCUL DE LA TRAJECTOIRE DE LA BALLE 

9 

IFM=lTHENXB-0:VB=-1:RETURN 
IFM=2THENX B=1 :YB*0:RETURN 
IFM=*3THENXB=0: YB-1 :RETURN 
IFM=4THENXB=-1 s YB=0:RETURN 



X(I)=3:Y(I)=2:S=S+10ïB=0:RETURN 
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499 ' GESTION DES VIES PERDUS 

500 V=V—2:PL0T30+V,0," ":WAIT300: CES 
505 EXPLODE 

510 IFV>1THEN39 

520 CLS: INPUT"VQUS RECIDIVEZ (0/N)";Z$: IFZ$ z= "0"THENRUNELSECLS: END 

599 'AFFICHAGE DU FUEL 

600 J= INT(RND <1)*35)+3:K=INT<RND(1)*19)+2:IFSCRN<J,K)=32THENPLQTJ,K,"q" 

610 RETURN 

699 ' 

700 ’ INSTRUCTIONS 

701 ’ 

710 CLS:PRINT" METEOR " 

720 PRINTSPRINT"VOTRE MISSION:SURVIVRE":PRINT:PRINT"VOUS RECUPEREZ LE FUEL<q > 

’730 PRINT"VOUS DETRUISEZ LES METEORITES <f>":PRINT:PRINT" TOUCHES:" 

740 PR INT"<-:CHANGEMENT DE DIRECTION": PR INT"<SPACE>:FEU" 

750 PRINT"FLECHE BAS:AVANCER":GETZ*:RETURN 

760 ’ 

770 ' METEOR FIN 
780 ’ 


ORIC 


FREEZE BERT 

Un jeu rafraîchissant qui se déroule sur quinze niveaux. 
Zozo, charmant glaçon, cherche d'une part à glacifier 
tout ce qui tombe entre ses petits doigts gelés et d'autre 
part à manger le maximum de boules de feu. Il doit 
aussi échapper au très méchant Creasy qui veut le dévorer... 


0 REM******************************** 

99 DATA14,10,10,15,0,0,0, 15 

1 REM** FREEZE*BERT ** 

100 DATA28,20,20,60,0,0,0,60 

2 REM** 1906 R.JUHEL ** 

101 DATAO,0,15,0,0,15,0,15 

3 REM** 0RIC1/ATM0S ** 

102 DATAO,0,60,0,0,60,0,60 

4 REM******************************** 

103 DATA14,10,10,15,0,15,0,0 

5 REM******************************** 

104 DATA28,20,20,60,0,60,0,0 

6 REM** VARIABLES DU DEBUT * 

105 DATA15,0,0,15,0,0,0,15 

7 REM******************************** 

106 DATA6Û,0,0,60,0,0,0,60 

8 CLS:P0KE61B,10sVI=3:PAPERO:INK6: 

107 DATA63,63,63,30,12,4,0,0 

TI=1000:GOSUB 5000 

108 DQKE 18,40000:PRINT" MICRGJEUX - 


FREEZE*BERT - R.JUHEL ":CLS 

9 REM**REDEFINITION DES CARACTERES*** 


10 FOR I=0T0175 

109 REM ENVOIE AU INSTRUCTIONS 

20 READ A 

110 GOTO 3000 

30 P0KE46B56+I, A 

120 REM****************************** 

40 NEXT 

130 REM**** DECOR ,TABLEAU * 

50 DATAO,0,0,1,2,4,15,8 

140 REM**** VARIABLES DU JEU * 

60 DATAO,0,0,63,3,5,57,9 

150 REM****************************** 

70 DATAS,10,8,8,15,4,4,29 

190 IFTI>100 THEN TI=TI-100 

00 DATA9,41,10,12,56,16,16,^8 

191 DOKE 18,48000:PRINT" MICRDJEUX - 

90 DATA63,63,63,0,0,0,0,0 

FREEZE*BERT - R.JUHEL ":CLS 

91 DATAO,0,0,63,48,40,39,36 

195 P=0 

92 DATAO,0,0,48,8,4,60,4 

200 BQ=TI 

93 DATA36,37,20,12,7,2,2,3 

205 FOR 1=3 TQ33STEP 6 

94 DATA4,20,4,4,60,8,0,46 

210 PLOTI,24,"eeee" 

95 DATA2,20,36,18,10,10,9,39 

220 NEXTI 

96 DATA20,34,36,21,37,42,52,49 

230 FOR I=6T030STEP6 

97 DATA4Q,10,18,40,36,19,8,7 

240 PLOT1,22,"eeee" 

98 DATA4,20,18,5,9,50,4,56 

250 NEXT I 
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260 FOR I-9TO20STEP6 
270 PLOTX , 20,"eeee" 

2B0 NEXT I 

290 FOR 1=12 T024 STEP 6 
300 PLOTI,18,"eeee" 

310 NEXT I 

320 FOR 1=15 TÛ21STEP6 

330 PLOTI,16,"eeee" 

331 PL0T2, 13, "BONUS: " :PL0T2, 14, "vvvvvvvvv‘ , 

332 PL0T28,13,"SCORE:":PLOT2B,14,"vvvvvvvvvvv" 

333 PLQT2,2,"VIE:":PL0T2,3,"vvvvv" 

340 NEXT I 

341 FOR I=15T021STEP6:PLOTI,12,"eeee":NEXTI 

342 FORI=12T024STEP6:PLOTI,10,"eeee":NEXTI 

343 F0RI=9T028STEP6:PLOTI,B,"eeee":NEXT I 

344 F0RI=12T024STEP6:PLOTI,6,"eeee":NEXT I 

345 FOR 1=15T021STEP6:PLOT1,4,"eeee":NEXT I 

346 PLOT1B,2,"eeee" 

350 PLOT1B,14,"eeee" 

390 REM****************************** 

391 REM** VARIABLES REPRESENTANT ** 

392 REM** DES COORDONNEES SUR LA ** 

393 REM** PYRAMIDE. ** 

394 REM****************************** 

400 P0=1:X=4:Y=22:PE=1:V=19:W=12:CV=1:R=22:S=2 

405 REM IL EST NECESSAIRE D'AFFICHER ZOE ET CREAZY DES LE DEBUT DU JEU , 

406 REM SINON IL N'APPARAISSENT PAS TOUT DE SUITE 
410 PLOTV,W,"rs":PLOTV,W+l,"tu" 

420 PLOTR,S,"jk":PLOTR,S+l,"lm" 

450 REM****************************** 

460 REM** BOUCLE PRINCIPALE ** 

470 REM** DU JEU. ** 

4S0 REM****************************** 

500 REPEAT 

501 B0=B0-1 

502 IF B0=0 THEN GOSUB 2000 

504 TI=T1-1 

505 PL0T7,13,STR* <TI):PLOT33,13,STR*(SC) 

506 PLOT 5, 2, STR* (VI’) 

510 X*=KEY* 

600 IF' PEEK(#208)=107THEN BDSUB900:X-X+3:Y=Y-2:P0=2 
610 IFPEEK (#200) =159THENG0SUB900: X-X+3:Y=Y+2:P0=2 
620 IFPEEK(#200)=174THEN BOSUB 900:X-X-3:Y=Y-2:P0=1 
630 IFPÈEK(#208)=170THEN GDSUB900eX=X-3:Y=Y+2 :P0=1 

640 IF X=R AND Y=S THEN SC=SC+15 

650 IF SCRN(X,Y+2)=32 THEN BOSUB 2000 

651 IFX=1 THEN GÛSUB 2000 

660 IF SCRN ( X , Y+3) =32 THEN PLOTX-1, Y+3, " vvvv" : PING: P=P+1 ï SC=SC+10 

661 IF P=36 THEN ZAP:CLS:SC=SC+BO:GOTO 190 
670 IF P0=1THEN PLOTX,Y, "ab" :PLOTX,Y+l, "cd" 

600 IF P0=2 THEN PLOTX,Y,"fg":PLOTX,Y+l,"hi" 

609 IF CV=NDTHEN 690 ELSE 750 

690 IFX<V AND W>YANDSCRN(V-3,W)<>32THEN GOSUB 910:V=V-3:W=W-2 
700 IF X>V AND W>YANDSCRN <V+3,W)< >32 THEN GOSUB 910:V=V+3:W=W-2 
705 IF W=21 THEN 730 

710 IF X>V AND Y>WANDSCRN(V+3,W+4)< >32 THEN GOSUB 910:V=V+3:W=W+2 

720 IF X<V ANDY>WANDSCRN < V-3,W+4)< >32 THEN GOSUB 910:V=V-3:W=W+2 

730 IF PE=1 THEN PLOTV,W,"no":PLOTV,W+l,"pq"ELSEPLOTV,W, "rs" :PLOTV,W+l, "tu 

732 CV=0 

740 PE=—PE 

750 CV=CV+1 

751 IF X=V AND W=Y THEN GOSUB 2000 

759 IF S=2 AND Y=0 THEN 700 

760 IF CH=7 THENPLOTR,S," ":PLOTR,S+l," ":G0T0761ELSE 7B0 

761 IF X >RANDY>S ANDSCRN(R+3,S+4)< >32 THENR=R+3:6=S+2 
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762 IF X<R AND Y<S AND SCRN(R-3,S)<>32THENR=R-3:S=5-2 

763 IF X<RANDY>SAND SCRN<R-3,3+4X>32THENR=R-3:S=S+2 

764 IF X >R ANDY<SANDSCRN(R+3,S)< >32THEN R=R+3:S=S-2 

765 IF SCRN(R,S+3)=96THEN P=P-1:PLOTR-1,S+3," 

766 PLOT R, S,"jk"sPLÜTR,S+l«"1m" 

767 IF SCRN (R, S+3) 032 THEN P=P-1 ï PLOTR-1, S+3, " 

770 CH=0 

780 CH=CH+1 
800 UNTILX*="S" 

900 PLOTX,Y," ":PLOTX, Y+l," ":RETURN 

910 PLOTV, W, " " : PLOTV, W+l, " ":RETURN 

999 END 

1000 CALLDEEK(#FFFA) s REM POUR REDEFINIR VOS CARACTERES 

1995 REM*** ******************* M*#*** 

1996 REM** GESTION DES VIES *** 

1997 REM** PERDUES. *** 

1998 REM***************************** 

2000 X=4:Y=22:VI=VI-1:F0R- I»0 TO 7: WAIT1: MUSICI, L, 4 ,15:NE X T s PINB 
2010 P0KE<#20B>,0 
2015 WAITl00 

2020 IFVI=0 THENG0SUB6000:GOTO 3921 

2023 PLOTV,W," "sPLOTV,W+l," " 

2024 PLOTR,S," ":PLOTR,S+l," " 

2025 PLOT X,Y," "sPLOT X,Y+1," " 

2026 V=19:W=12:R=22:S=2 

2027 PLOTV,W,"rs "î PLOTV,W+l,"tu" 

2028 PLOTR,S,"jk":PLOTR,S+l,"1m" 

2030 RETURN 

2100 REM**************************** 

2200 REM** INSTRUCTIONS * 

2300 REM**************************** 

3000 CLS 

3001 REM**************************** 

3002 REM***** TITRE ****** 

3003 REM**************************** 

3010 PRINT: PRINTCHR*(27>;"N";" FREEZE*BERT " 

3020 PRINTCHR*<27> 5 "N";" FREEZE*BERT" 

3030 PRINT:PRINT" OU LES TRIBULATIONS D* UN GLAÇON" 

3035 PRINT: PRINT s PRINT 

3036 REM*************************** 

3037 REM** SITUATION DU CONTEXTE * 

3038 REM*************************** 

3040 PR INT: PRINT"ab VOICI ZOZO QUI DOIT GLACIFIE TOUTE cd LA PYRAMIDE." 

3045 PRINT 

3050 PRINT"j k ZOE-FAIT FONDRE LA PYRAMIDE A lm MESURE QUE ZOZO AVANCE."; 

3055 PRINT"<15PTS)." 

3060 PRINT 

3070 PRINT"rsCREAZY-IL VEUT REDUIRE ZOZO A L’ ETATtuLIQUIDE." 

3075 GET A* 

3000 PRINT:PRINT:PRINT 

3081 REM***************************** 

3082 REM*PRESENTATIQN DU CLAVIER*** 

3003 REM***************************** 

3090 PRINT"-" 

3100 PRINT" DEPLACEMENTS" 

3110 PRINT:PRINT 

3120 PRINT" <’> HAUT/DROITE" 

3130 PRINT" <A> HAUT/GAUCHE" 

3140 PRINT" </> BAS/DROITE" 

3150 PRINT" <Z> BAS/GAUCHE" 

3160 PRINT: PRINT: PRINT"-" 

3161 REM***************************** 

3162 REM**** OPTIONS ********** 

3163 REM***************************** 

3165 PRINT:PRINT"'J” POUR JOUER / ’T P POUR LES SCORES" 

3166 GET B* 
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3167 IFB*< >"T JI ANDB*< > " J " THEN3166 

3170 GET B* 

3171 IF B*=”T"THEN 3190 

3172 REM***************************** 

3173 REM*** NIVEAU DE DIFFICULTE **** 

3174 REM***************************** 

3175 INPUT"NIVEAU DE DIFFICULTE ,DE 1(DUR) A 15(FACILE)"s ND 

3176 IFND<1 THEN PRINT"V0US SAVEZ PAS LIRE.":G0T03175 

3177 IFND>15THEN PRINT"V0US FAITES EXPRES!":G0T03175 
3190 T 1 = 1000s VI=3:CLS:GOTO190 

31B1 REM**************************** 

3182 REM* TABLEAU DES SCORES **** 

3183 REM**************************** 

3190 CLS:PRINT 

3200 PRINTCHR*(12) 

3210 PRINTCHR*(4); 

3220 PRINT CHR*(27);"N"; 

3230 PRINT” TABLEAU DES SCORES” 

3240 PRINT CHR*(4); 

3250 PRINT:PRINT:PRINT:PRINT 

3251 REM***************************** 

3252 REM** AFFICHAGE *************** 

3253 REM***************************** 

3260 PRINT”-" 

3270 PRINT"ù NOMS ù SCORE u” 

32B0 PRINT”-" 

3290 FOR 1=1 TO 9 

3300 PRINT"ù "; SC* ( I);" ù "; SC(I) 

3305 PL0T2B, 0+1, ”ù” 

3310 NEXT 

3315 PRINT”-- : FR INT: PRINT 

3316 REM***************************** 

3317 REM**** OPTIONS ****** 

331B REM***************************** 

3320 PRINT"'J' POUR JOUER / '1’ POUR INSTRUCTIONS" 

3330 GETA*:IF A$ = "I" THEN 3000 

3335 IF A$< >"J"THEN 3330 

3340 REM***************************** 

3350 REM*** NIVEAU DE DIFFICULTE **** 

3360 REM***************************** 

3370 INPUT"NIVEAU DE DIFFICULTE , DE 1(DUR) A 15(FACILE)"; ND 

3380 IF ND<1 THEN PRINT"VOUS EXAGEREZ G0T03370 

3390 IF ND>15THEN PRINT "AH,C'EST MALIN.":G0T03370 

3400 T 1 = 1000:VI=3:CLS:GOTO190 

3900 REM***************************** 

3910 REM*** SAISIE DU NOM DU JOUEUR* 

3920 REM***************************** 

3921 CLS 

3922 REM*** EXPLICATIONS ************* 

3930 PRINT" VOUS VOUS DEPLACEZ AVEC LES FLECHES,VOUS ECRIVEZ AVEC <SPACE>,VOUS" 

m 

^940 PRINT" EFFACEZ AVEC <DEL>,VOUS CONCLUEZ AVEC<RETURN>" 

3945 WAIT400 
3950 GETXi:CLS 

4000 PRINT:PRINT:PRINT:PRINT" C'EST QUOI TON PETIT NOM ?" 

4010 PRINT:PRINT: PRINT:PRINT:PRINT” "; 

4015 N=0 

4016 REM**************************** 

4017 REM** BOUCLE DE SAISIE. ******* 

401B REM**************************** 

4020 FOR I=65T090:PRINTCHR*(I); :NEXT 
4030 X=5:N(0)=32 :N=0 
4040 REPEAT 
4045 WAIT5 

4050 IF PEEK(#200)=172 AND X>5 THEN X=X-1 
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PC IBM et Compatibles 


PAC ATOUT 

Vous disposez de deux minutes pour trouver la sortie du 
labyrinthe. Mais pour augmenter 
le score, votre petit Pac Man peut grignoter des atouts 
au passage: 300points pour un cœur, 400 
pour un carreau, 500 pour un trèfle, 600 pour un pique. 


1 REM *< 

2 REM « 

3 REM » 

4 REM • 


PAC ATOUT 

-C- TILT N’CHYGA J 

Pour IBM PC et compatibles 


6 REM 

7 REM » 


DECLARATIONS 


9 ON ERR0R GOTO 135 

10 DEFINT A-ZîDEF SEG:P0KE 106,0:KEY 0FF 

11 T$=TIMES:X=0:TU=-1 

12 FOR I = 2 T0 3:X=X*6Û+ UAL(MIDSCT$,(3*1-2),2)):NEXT:RAND0MIZE X-32000 

13 TIMES=”00.00.00" 

14 REM *********************************************************************** 

15 REM * PRSENTATION * 


17 CLSIC0L0R 0,2 

18 L0CATE 7,35:PRINT "PAC ATOUT" 

19 LOCATE 9» 30JPRINT "-C- TILT / N’CHYGA J" 

20 LOCATE 18,35:C0L0R 4,l:PRINT CHRSC3);" = 300 Pts." 

21 LOCATE 19,35:C0L0R 4,i:PRINT CHRSC4);" = 400 Pts." 

22 LOCATE 20,35:C0L0R 0.15PRINT CHRSC5);" = 500 Pts." 

23 LOCATE 21»35:COLOR 0,i:PRINT CHR$(6);" = 600 Pts." 

24 LOCATE 22,30:C0L0R 7,1JPRINT "LABYRINTHE = 200 Pts." 

25 LOCATE 16,19:C0L0R 0,3:PRINT "TEMPS POUR LE PARCOURS DU LABYRINTHE = 1 Kn." 

26 COLOR 0,5 

27 LOCATE 13,30,0:PRINT "GENERATION DU TABLEAU" 

28 REM a********************************************************************* 

29 REM * GENERATION LABYRINTHE * 

30 REM ********************************************************************** 

31 REM 

32 DIM L(10,12).M(10,12)»P(10).S(10,12) 

33 P(10) = 120:FOR 1 = 1 TO 9:P<I)=INT(1 +.1»I*P<10)):NEXT 1: 1 = 1 

34 J=l:R=i:Xl = l + INT(12»RND) :C=Xl:L< 1,0 = 1 :CNT=l:N=2 

35 IF R=10 THEN X(l>=9999 ELSE X(1)=L(R+1,C) 

36 IF R=1 THEN X(2)=9999 ELSE X(2)=L(R-l» C) 

37 IF C=1 THEN X<3)=9999 ELSE X< 3) = L(R,C-l) 

38 IF C=12 THEN X(4)=9999 ELSE X(4)=L(R,C+l) 

39 FOR K=1 TO 4: IF X(K)=0 GOTO 48 ELSE NEXT K 

40 IF C=12 THEN C=0:IF R=10 THEN R=1 ELSE R=R+1 

41 C=C + 1 : IF TU THEN IF LCR.0=0 GOTO 40 ELSE CNT=L ( R. C ) :G0T0 35 

42 IF LCR.OOO GOTO 40 

43 IF ROI THEN IF LCR-l.OOO THEN R=R-1 : CNT=L ( R, C ) : GOTO 35 

44 IF ROIO THEN IF LCR+1.C1O0 THEN R=R+1 :CNT=L(R, C ) : GOTO 35 

45 IF COI THEN IF L(R,C-1)<>0 THEN C=C-1:CNT=L<R,C): GOTO 35 

46 IF C<>12 THEN IF L(R,C + l)O0 THEN C = C + 1 : CNT=L(R, C ) : GOTO 35 
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47 GOTO 40 

48 K = 1 + INT(4*RND): IF X(K)<>0 GOTO 48 

49 ON K GOTO 54,53,52.50 

50 IF M(R,C)=0 THEN M(R,C)=2 ELSE h(R,C)=3 

51 C = C + 1: GOTO 56 

52 C=C-1:M(RiC)=2:G0T0 56 

53 R=R-i:M(R,C)=i:G0T0 56 

54 IF M(R,C>=0 THEN M(R.C)=1 ELSE «(R.0=3 

55 R=R+1 

56 CNT=CNT + 1 :L(R.O=CNT 

57 N=N+1: IF N<=P(I) GOTO 35 
56 IF 1=9 THEN TU=0 

59 IF I < 10 THEN 1 = 1 + 1 : IF N<= P(I) GOTO 35 ELSE 58 

60 X=0:FOR C=1 TO 12:IF L(10,C)>X THEN X=L(10,C) 

61 NEXT C:FOR C=1 TO 12:IF L(10.C)=X GOTO 62 ELSE NEXT C 

62 X2=C: IF 0=M(1D.C) THEN M<10,C)=1 ELSE M(10,C)=3 

63 CLS:COLOR 7,i:PRINT CHR$(218): 

64 FOR C=1 TO 11: IF C=X1 THEN PRINT " M 2 ELSE PRINT STRINGS(3,196); 

65 IF M(1 » C)<2 THEN PRINT CHR$(194): ELSE PRINT CHRS(196); 

66 NEXT C 2 IF Xl=12 THEN PRINT " "î ELSE PRINT STRINGSC3,196); 

67 PRINT CHR$<191) 

68 FOR R=1 TO 10 

69 PRINT CHRS(179)::F0R C=1 TO 12 

70 IF 2>M(R. C ) THEN PRINT " , ‘:CHRî( 179) î ELSE PRINT " 

71 NEXT C:PRINT 

72 IF R=10 THEN PRINT CHRS1192): ELSE IF M(R,1)=Q OR MCR,1)=2 THEN PRINT CHR$(19 
5); ELSE PRINT CHRS(179); 

73 FOR C=1 TO 12 

74 IF 0=M(R,C) OR 2=M(R,C) THEN PRINT STRINGS(3.196): :A=1 ELSE PRINT " ";:A=Û 

75 IF C<>12 THEN IF M(R,C+1)=0 OR M(R,C+1)=2 THEN A=A+8 

76 IF H(R,C)<2 THEN A=A+2 

77 IF ROIO THEN IF M(R+1,C><2 THEN A=A+4 

78 ON A+l GOTO 79.84,82.80.82,81,82,83,84,84.85.86.87,88.89,90 

79 PRINT " "ÎJGOTO 91 

80 PRINT CHR$(217)Î:GOTO 91 

81 PRINT CHR$(191)î:G0T0 91 

82 PRINT CHRî(179);:GOTO 91 

83 PRINT CHRS(180)î:G0T0 91 

84 PRINT CHRS(196>::G0T0 91 

85 PRINT CHR$(192);:GOTO 91 

86 PRINT CHRît193 )* :GOTO 91 

87 PRINT CHR$(218)::G0TO 91 

88 PRINT CHRS(194)î:G0T0 91 

89 PRINT CHR$(195);:G0T0 91 

90 PRINT CHR$(197)::G0T0 91 

91 NEXT CîPRINTJNEXT R 

92 REM 

93 REM • JEU ET DEPLACEMENT DE PAC ' * 

94 REM ... 

95 GOSUB 120 

96 LOCATE 12,65,0:PRINT "SCORE: " 

97 KEY OFFîFOR 1=1 TO 14:KEY(I) OFF:NEXT I 

98 U=4*Xl-i:x=2:L=X:C=U 

99 ON KEY(ll) GOSUB 115 

100 ON KEY(12) GOSUB 116 

101 ON KEY(13) GOSUB 117 

102 ON KEY(14) GOSUB 118 

103 LOCATE 12.60,0:PRINT "SCORE: ";C0*100 

104 LOCATE 10.60,0:PRINT "TEMPS: ":MIDS(TIMES,5,4): IF UAL(MIDS(TIMES,5.1) ) >F + 1 T 
HEN 135 





105 C0L0R 6.1 

106 LOCATE L*C.O:PRINT CHRî(2)ILOCATE L.C.O:PRINT CHR$<32) 

107 COLOR 7.1 

108 IF SCREEN(X» U) = 32 AND L=21 THEN ERASE L,M,S.P:C0=C0+2:F=F+1:GOTO 17 

109 KEY(ll) 0N:KEY(12) 0N:KEY(13) 0N:KEY(14) ON 

110 KEY(11) STOP:KEY(12) ST0P:KEY(13) ST0P:KEY(14) STOP 

111 IF SCREEN (X.U) >2 AND SCREEN (X.UX7 THEN SOUND 550.8 :CO=CO + SCREEN( X. U) :LOCA 
TE X.U,0:PRINT " LOCATE 12.60.0:PRINT "SCORE: ";C0*100 

112 IF SCREEN <X.U)<>32 THEN SOUND 50.5 :X=L:U=C: GOTO 104 

113 L=X:C=U 

114 GOTO 104 

115 KEY(11) STOP:KEY(12) ST0P:KEY(13) ST0P:KEY(14) STOP :X=X-1 :RETURN 

116 KEY(12) ST0P:KEY(12) STOP :KEY(13) ST0P:KEY<14) STOP :U=U-1:RETURN 

117 KEY(13) ST0P:KEY(12) ST0P:KEY(13) ST0P:KEY(14) STOP :U=U+1 :RETURN 

118 KEY(14) ST0P:KEY(12> ST0P:KEY(13) ST0P:KEY(14) STOP :X = X + 1:RETURN 

119 GOTO 10 

120 REM ..... 

121 REM * EMPLACEMENT DES ATOUTS « 

122 REM .««Ml*»***»»»»».. 

123 FOR 1=1 TO 5 

124 RANDOMIZE 324 

125 EL=INT(RND*17):EC=(RND*45) :EL=EL+2:EC=EC+2 

126 AT=INT(RND»4) 

127 IF AT<2 THEN COLOR 4,1 ELSE COLOR 0,1 

128 LOCATE EL»EC:PRINT CHR$(AT+3) 

129 COLOR 7,1 

130 NEXT I 

131 RETURN 

132 REM 

133 REM « FIN DE PARTIE » 

134 REM 

135 LOCATE 20.6D:PRINT "FIN...Appuyer sur une touche":FOR 1=1 TO 200INEXT I 

136 AÎ=INKEYÎ: IF AÎ=" M THEN 136 

137 RUN 


PC IBM et Compatibles 


TILTATACK 

Vous disposez de vingt vies pour détruire l'ennemi, 
qui tous les 1 000 points réapparaît dans toute son intégrité. 


I O REM ************************************************************************* 

20 REM * TLITATAK jeu pour IBM PC et COMPATIBLES * 

30 REM * -C-1 986 TILT / N* CHYGA J * 

40 REM ************************************************************************* 
5 0 REM * **************aa*DECLARATIONS********* ******** ************************** 
60 CLS 

70 L-2 3: C = 39: HL=2: HC = 20: VIE=20: MAX = 1 0000 
80 GOSUB 260 
90 GOSUB 320 

100 REM ******************AFFICHAGE JEU***************************************** 
* 

II O COLOR 4,0 

120 LOCATE 18, 24: PRINT" 

130 LOCATE 19, 24: PRINT" 

140 LOCATE 20,24:PRINT" 




W. 
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150 
1 60 
1 70 
1 80 
1 90 
200 
21 0 
220 
230 
240 
250 
260 
270 
280 
290 
300 
31 0 
320 
330 
SUB 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 




M 



I 




LOCATE 21,24: PRINT" H§ 

LOCATE 22, 24: PRINT" Bi 

REM ******************AFFICHÀGE 
GOSUB 650 
FOR HL= 2 TO 4 
GOSUB 540 
NEXT HL 

COLOR 6, 0: LOCATE 1,65: PRINT "VIE:"; VIE 
IF SOMAX THEN KAX*MAX+10000: GOTO 180 

COLOR 7, 0: LOCATE L, C: PRINT M$: GOSUB 670: LOCATE L, C: COLOR 0,0: PRINT " 

KEY(II) ON: KEY( 1 2) ON:KEY(13) ON: KEY( 1 4) ON:KEY(10) ON 

KEYM1) STOP: KEY( 12) STOP:KEY(13) ST0P:KEY(14> STOP: KEY( 1 0) STOP 

GOTO 220 

REM ******************GRAPHIQUE********************************'************ 
M$=CHR$(201)tCHR$(219)+CHR$(187) 

RETURN 

REM *****aa*i NIT IALISATION DEPLACEMENT OU TIR******************************* 
KEY OFF 

GOSUB 380: ON KEYC13) GOSUB 410: ON KEYM4) GO 


HAUT 


GAUCHE 


DROITE 


ON KEYM1) GOSUB 350: ON KEY<12) 

440: ON KEY(IO) GOSUB 470 
RETURN 

REM DEPLACEMENT MOBILE VERS LE 
IF L<15 THEN L=12 ELSE L=L-3 
RETURN 

REM DEPLACEMENT MOBILE VERS LA 
IF C<19 THEN C = 21 ELSE C = C-2 
RETURN 

REM DEPLACEMENT MOBILE VERS LA 
IF 055 THEN C = 58 ELSE C = C+3 
RETURN 

REM DEPLACEMENT CURSEUR VERS LE BAS 
IF L> 20 THEN L=23 ELSE L=L+3 
RETURN 
REM TIR 
SOUND 850,1 

FOR I= L-1 TO 1 STEP -1 
IF SCREEN ( I, C + 1, 1)=2 THEN Z=Z: 
.LOCATE 1,1:COLOR 6,0: PRINT "SCORE: 

510 LOCATE I,C+1: PRINT "O": LOCATE I 
520 NEXT I 
530 RETURN 

540 REM AAAAAAAAAAAAAAAAAA AFFICHAGE 

550 REM 

560 COLOR 0, 0: LOCATE HL-1 , HC: P RI NT 
570 LOCATE HL, HC: COLOR 2,0: PRINT 
580 LOCATE HL+1 , HC: COLOR 2,0: PRINT 
590 LOCATE HL+2, HC: COLOR 2,0: PRINT 
600 LOCATE HL+3, HC: COLOR 2,0: PRINT 
610 LOCATE HL+4,HC: COLOR 2,0: PRINT 
620 LOCATE HL+5,HC: COLOR 2,0:PRINT " 

630 RETURN 


Commentaires : 

Vous vous déplacez avec les flèches 
F 10 pour tirer 
Le score s’affiche à la fin. 


LOCATE I,C+1: COLOR 0,0: PRINT 
" , SC: GOTO 520 
, C+1 : PRI NT " " 


1=1:SC = SC + 5 0 


ENNEMI************************************** 


1SBD0I 


640 REM ***************** A TTAK DE L' ENNEMI ************************************* 
650 FOR K = 1 TO 3: FOR H=100 TO -600 STEP -20: SOUND 1 200-ABS( H) , 1 : H=H-5: NEXT H 
. K 

660 RETURN 

670 REM ATTAK HEBDO 

680 IF 10 60 THEN AC = 20 ELSE AC-AC+1 
690 FOR AL®10 TO 23 

700 IF SCREEN( AL, AC, 1 ) =4 THEN Z = Z: LOCATE AL, AC: COLOR 0,0: PRINT " " : AL = 23: GOTO 73 
0 

710 IF SCREENf AL, AC, 1 ) =7 THEN VI E = VI E-1 : LOCATE AL, AC: COLOR 6,0: PRINT "***": SOUND 
200, 1 : AL e 23: GOTO 730 

720 COLOR 2, 0: LOCATE AL, AC: PRINT "*": COLOR 0, 0: LOCATE AL, AC: PRINT " H 
730 IF VIE=0 THEN CLS:PRINT "VOTRE SCORE:SC:END 
740 NEXT AL 


► 
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750 RETURN 




PC IBM et Compatibles 


ESPACE ATTACK 

Détruisez un maximum d'assaillants en évitant leurs bombes. 

Si votre score est inférieur à 0, ou si le total 
de vos explosions et du nombre d'envahisseurs qui atterrissent 
atteint 10, vous avez perdu. Un capital de 100 points au départ, 
mais les ennemis se multiplient au même rythme. 


1 REM ESPACE ATTAK 

2 REM 

3 REM -C-1986 TILT / N’CHYGA J 

10 REM 

20 REM » POUR IBM PC ET COMPATIBLE 

30 REM 
40 REM 
50 REM 

100 ON ERR0R GOTO 800 
110 GOSUB 1000 
115 CLS 

250 ON KEY(12) GOSUB 700 
260 ON KEY(13) GOSUB 720 
270 ON KEY(10) GOSUB 760 
280 GOSUB 730 

290 REM »«»»*»»«*»**•******»»**»«*»»***»#****»*#*»»#* 

295 REM » PROGRAMME PRINCIPAL 

300 REM 

310 LOCATE 24,5:COLOR 7.15PRINT "SCORE : ";S; 

311 LOCATE 24135:COLOR 7,4:PRINT "PASSER : "îPASSER: 

312 LOCATE 24,62:C0L0R 0,2:PRINT "TOUCHER : ";T0UCHE; 

313 COLOR 13.0 

330 KEY(10) ON:KEY(12) 0N:KEY(13) ON 
340 KEY( 10) ST0P:KJEY(12) ST0P:KEY(13) STOP 
350 IF IN>INT(S/25) THEN 420 
360 IN=INT(RND(1)*10)+1 
370 Z=INT(RND(l)»14)+i:L=Z*5+l 
380 LOCATE K(Z),L:PRINT Q$;:K(Z)=K(Z)+2 
390 IF K(Z)=23 THEN K(Z) = 1 :S=S-25:PASSER=PASSER+1: PLAY S4*:IF PASSER>3 THEN GOSU 
B 670 

400 LOCATE K(Z).L:PRINT T$::M=K(Z)+1 
410 GOTO 300 

420 LOCATE M.L+i:PRINT Q$::M=M+1 
430 IF M<22 THEN 460 

440 IN=1 : IF SCREEN(MiL + l)< >32 THEN GOSUB 620 
450 GOTO 300 

460 LOCATE M.L+UPRINT CHR$(248)::GOTO 300 

480 IF SCREEN(T.X)=25 THEN IN=1:L0CATE T,X:PRINT P$::PLAY S3î:L0CATE T,X:PRINT " 
:S=S+5:RETURN 

500 UL=0:IF SCREEN(T.X-l)< >32 THEN VL=VL-1 
510 IF SCREEN(T » X+l ) < >32 THEN VL=UL+1 
520 IF UL=0 THEN X=X-i:G0T0 550 


Commentaires : 

F 10 pour tirer 

Vous vous déplacez avec les Ilèches. 
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53D IF SCREEN (T,X+2 > < >32 THEN UL=VL+1 EL St UL=UL-1 
540 IF UL=-2 THEN X = X-2 
550 C0L0R 6*0 

560 LOCATE T.XiPRINT U*;:PLAY SIS 

570 COLOR 13,0 

580 LOCATE T.X:PRINT QS; 

590 X = X-1: Z = 1 NT(X/5): K(Z > = 1 :S=S+15 
600 RETURN 
620 COLOR 4,0 

630 COLOR 14,0 : LOCATE 22,11*3 : PRINT US;:PLAY S2S 

640 COLOR 13,0 

650 LOCATE 22,U»3:PRINT SS; 

660 T0UCHE=TÛUCHE+i:S=S-30:IF T0UCHE>3 THEN GOSUB 670 

661 RETURN 

670 IF PASSER*TOUCHE>10 THEN 300 

700 KEY(13) ST0P:KEY(10) ST0P:KEY(12) STOP :U=U-1: IF U=Ü THEN U=1 
710 GOTO 730 

720 KEY ( 12 ) ST0P:i<EY(10) STOP : KEY( 13.) STOP : Ul = ld +1 : IP U = 24 THEN UJ = 23 
730 COLOR 7,0:L0CATE 22,U«3:PR1NT SS;:COLOR 13,0 
740 RETURN 

760 KEY( 12) STOPîKEY( 13) STOPîKEYUO) ST0P:X=U*3+5 

770 FOR T=21 TO 1 STEP -1 : IF SCREEN(T,X)<>32 THEN GOSUB 480:T = 1:G0T0 790 
780 LOCATE T,X:PRINT CHR$(254);:LOCATE T,X:PRINT M 
790 NEXT T :S=S-5:RETURN 

800 LOCATE 12,20:PRINT "FIN... Pressez une touche" 

801 SS=INKEYS:IF $S="" THEN 801 


802 RUN 

997 REM 

998 REM * DECLARATIONS * 

999 REM #***#****«********««***•«*****««*»•«#««*«*•*****»»*******»* 


1000 KEY OFFîFOR 1 = 1 TO 14 :KEY{I) OFF:NEXT I 

1001 S=100 

1030 Slî="L4T25003F" 

1040 S2î="L4T25002GB" 

1050 S3$="L4T25001FA1" 

1060 S4$="L4T25001EAD" 

1140 FOR 1= 1 TO 2 

1141 CLSîCOLOR 4.1 :LOCATE 12,30: PRINT "ESPACE ATTAQUE" 

1142 LOCATE 14,30: PRINT "TILT J CHAGNY" 

1150 FOR K=1 TO 2:FOR H=1ÛÛ TO -600 STEP -20:S0UND 1200-ABS(H),1 :H=H-5:NEXT H,K 

1151 NEXT I 

1160 FOR 1=1 TO lOîNEXT IîCOLOR 13.0 
1170 DIM K(14)JF0R 1=1 TO 14tK<I>=1îNEXT I 
1190 05=" 

1195 R5=CHRS(176)+CHR5(176)+CHR$(176) 

1200 $S=Q$+CHR$(199J+CHRS(220)+CHRS(219)+CHRS(220)+CHRS(182)+05 
1210 T5=CHRf(195)+CHR$(254)+CHR$(180) 

1220 U$=CHR$(62)+CHR$(42)+CHRS(60):P$=CHRS(176) 

1230 U$=R$+CHR$(177)+CHRS(177)+CHR$(178)+CHRS(177)+CHR$<177)+R$:GS=" 

1240 U=10 
1300 RETURN 


C 
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PC IBM et Compatibles 


OTILTO 


Dans cette variante d'Othello, 
vous jouez contre la machine pour remplir un damier de 
soixante-quatre cases. Pour gagner des pions 
adverses, encerclez-les en vous déplaçant avec les flèches. 


INITIALISATION 



JEU PC 


2 REM * OTILTO » 

3 REM * -C- TILT N* CHYGA J 

4 REM * pour IBM PC et compatibles * 

5 REM * ’ 

7 ON ERROR GOTO 252 

9 REM * INITIALISATION * 

11 GOSUB 259 

12 LI = 5: CO= 25 

13 RESTORE 

14 FOR 1=0 TO 99 

15 READ G(I) 

16 H( I) =G( I) 

17 N E X T I Commentaire : 

IA RflU T-q TO 17 On peut tricher grâce à la touche (fl), 

10 rvn j.- 3 1 ^ qui renverse la situation. N’en abusez pas... 

19 A = 11*<I\12) ___ 

20 G< 91+1)=1-A 

21 G< 95 + 1)= A-1 

22 NEXT I 

23 GOSUB 169 

24 GOSUB 142 

26 REM * JEU PC * 

28 LOCATE 7,5:PRINT "Je réfléchis"; 

29 B = 0 

30 C=0 

31 FOR D=E TO F 

32 IF GC D)=0 THEN D = D + 2 

33 IF G( D)> 0 THEN 46 

34 L= 0 

35 FOR M=100 TO 107 

36 A= D 

37 N= 0 

30 A = A + G( M) 

39 IF G< A) < 1 THEN 42 

40 IF G( A) =1 THEN N = N- G( D) : GOTO 38 

41 L= L+ N 

42 NEXT M 

43 IF L= 0 GOTO 46 

44 IF L> B THEN B = L: G(108)=D: C = 1 

45 IF L= B THEN G(108 + C)=D: C = C + 1 

46 NEXT D 

47 IF B> 0 THEN 59 

48 REM ************************************************************************ 

49 REM * COUP IMPOSSIBLE PC * 

50 REM ******************************** a***********************aa************** 

51 LOCATE 7,5 

52 PRINT "Ne peux jouer" 


AAAAAAAAAA *********** **************** 
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53 FOR WI=1 TO 20:SOUND 300,1:NEXT WI 

54 VS=1 


55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 
70 

79 

80 
81 
82 

83 

84 


GOTO 78 

REM A*********************************************************************** 
REM * FIONS GAGNES PAR PC * 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

I = G( 1 0 7 + INT( C*RND( 1 ) +1 ) ) 

LI = I \ 1 0 
CO=I-LI*10 
G( I) =2 


GOSUB 
A = I 
VQ=0 
FOR M = 


1 26 


100 TO 107 


N=0 
I - A 

I =1 +G( M) 

IF G( I) < 1 THEN 76 
IF G(I)=2 THEN 74 
N=N*1 
GOTO 69 
I =A 

IF N> O THEN VZ = VZ: FOR L = 1 TO N: I-ItG(H): G(I)=2: GOSUB 126: NEXT L 
NEXT M 
GOSUB 142 
GOSUB 200 
REM 
REM * 

REM 

I F ( T<11) OR (T> 88) OR 
REM 
REM * 


BRANCHEMENT CHOIX UTILISATEUR 


( G( T) >0) GOTO 1 1 3 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PIONS GAGNES UTILISATEURS 


85 REM 

86 VS=0 
07 L=0 

80 FOR M"100 TO 107 

89 A = T 

90 N = 0 

91 A= A + G( M) 

92 IF G( A) < 1 THEN 1 03 

93 IF G( A) - 2 THEN N=N + 1 : 

94 I = T 

95 IF N= 0 THEN 103 

96 IF G( I)< 0 THEN G( I) =1 : 

97 FOR VP=1 TO N 

98 I = I +G( M) 

99 G( I) =1 

100 L= L+1 

101 GOSUB 126 

102 NEXT VP 


************************************************** 


GOTO 91 


GOSUB 126 


103 NEXT M 

104 IF L= 0 THEN 113 

105 U=T-11 

106 IF U< E THEN E = U 

107 IF G( E)=0 THEN E=E*1: GOTO 107 

108 U= T +11 

109 IF U> F THEN F = U 

110 IF G( F) = 0 THEN F = F-1: GOTO 110 

111 GOSUB 142 

112 GOTO 20 

113 LOCATE 7, 5 

114 REM *********************************************************************** 

115 REM * COUP IMPOSSIBLE UTILISATEUR * 

1 16 REM **************** * AAAAÀAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

117 PRINT "Impossible !" 
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118 FOR WI=1 TO 20: SOUND 500,1: NEXT HI 

119 GOSUB 155 

120 GOTO 78 

121 VQ=1 

122 GOTO 28 

123 REM *********************************************************************** 

124 REM * AFFICHAGE DES PIONS * 

125 REM *********************************************************************** 

126 IF I<1 1 OR I> 88 THEN 138 

127 S=I\10 

128 B = 7*( I-S*10) -2 

129 S = 3 *S-1 

130 IF G( I) =2 THEN PION$ = CHR$( 3) +CHR$( 3) : L0=4: LF=7: GOTO 132 ELSE P ION$=CHR$( 6 ) + C 
HR$( 6) : L0 = 0: LF = 6 

131 IF G( I) = 1 THEN PION$ = CHR$(6) +CHR$( 6) : L0 = 0: LF = 6 ELSE GOTO 138 

132 PION$=PION$+PION$ 

133 COLOR LO,LF 

134 LOCATE S,B + 20 

135 PRINT PI0N$; 

136 LOCATE S + 1,B+20 

137 PRINT PI0N$; 

138 RETURN 

140 REM * AFFICHAGE DES SCORES * 

142 UT= 0 

143 PC=0 

144 FOR 1=11 TO 88: IF GCI)=1 THEN UT=UT+1 

145 IF G(I)=2 THEN PC=PC+1 

146 NEXT I 

147 LOCATE 4, 5: COLOR 4,7 

148 PRINT UT: LOCATE 4, 16: COLOR 7,0: PRINT PC 

149 RETURN 

151 REM * TEST FIN DE PARTIE * 

153 IF PC=0 THEN LOCATE 7,5:PRINT "Vous gagnez !":GOTO 252 

154 IF UT=0 THEN LOCATE 7,5:PRINT "J*ai gagne !":GOTO 252 

155 IF <UT+PC=64) AND UT=PC THEN LOCATE 7,5:PRINT "MATCH NUL !":GOTO 252 

156 IF (UT+PC=64) AND UT>PC THEN LOCATE 7,5:PRINT "Vous gagnez !”:GOTO 252 

157 IF ( UT + PC = 64) AND UT<PC THEN LOCATE 7, 5: PRINT "J’ai gagne !":GOTO 252 

158 RETURN 

160 REM * INVERSION DE LA PARTIE * 

162 FOR 1=11 TO 88 

163 IF G( I ) = 1 THEN G(I)=2: GOSUB 126: GOTO 165 

164 IF G( I ) = 2 THEN G( I ) =1 : GOSUB 126 

165 NEXT I 

166 GOSUB 142 

167 GOSUB 155 

168 GOTO 78 

169 REM *********************************************************************** 

170 REM * MASQUES DU JEU * 

171 REM *********************************************************************** 

172 C LS 

173 LOCATE 1 , 23 

174 COLOR 0, 2 

175 PRINT "|-1-1-1-1-1-1-[-1" 

176 FOR A=1 TO 23 

177 LOCATE A+1,23 

178 IF (A\3)*3 = A THEN PRINT " |-1-1-1-1- \ -1- \- 

-1"; ELSE PRINT "| | | | | j | | | " ; 

179 NEXT A 

180 LOCATE 25, 23 




1 e 1 PRINT " 1 - 1 - 1 - 1 - 1 - 1 - 1 - 1 -' ” 

1 82 COLOR 7, O 
1 83 FOR 1=11 TO 88 

184 GOSUB 126 

185 NEXT I 

1 86 COLOR 7,1 

187 LOCATE 17, 2: PRINT M r” + STRING$( 18, CHR$( 205) > ♦ "-j “ 

188 LOCATE 10, 2: PRINT " M + ,, [f1I = Inversion"+ M 

189 LOCATE 19,2: PRINT M M +"If2] = Passer 

190 LOCATE 20, 2: PRINT " " + ” C f 51 = Abandon ,, +" 

191 LOCATE 21,2: PRINT " ,, + ,, [f10] = Valider 

192 LOCATE 22, 2: PRINT " " + "t flèches J = | ** + " " 

193 LOCATE 23, 2: PRINT " L " + STRI NG$< 1 0, CHR$( 205) ) ♦ " J " 

194 COLOR 0, 6: LOCATE 1,2: PRINT " p" + STRI NG$( 1 0, CHR$( 20 5) ) ♦ "-| " 

195 LOCATE 2, 2: PRINT " " + " POINTS M + “ ] " 

196 LOCATE 3, 2: PRINT " Vous Moi "+" | " 

197 LOCATE 4, 2: PRINT ** I |’• 

198 LOCATE 5, 2: PRINT " L " +STRI NG$( 1 0, CHR$( 205) ) +*! J " 

199 RETURN 

200 REM ****************************>******************************************* 

201 REM * CHOIX UTILISATEUR * 

202 REM *********************************************************************** 

203 LOCATE 7,4 

204 PRINT STRING$( 14, " M ); 

205 LOCATE ( 3*LI) -1, ( 7* CO) +19, 1 

206 KEY OFF: FOR 1=1 TO 14:KEY(I) OFF: NEXT I 

207 ON KEY(II) GOSUB 219: ON KEY(12) GOSUB 222: ON KEY( 1 3) GOSUB 225: ON KEYM4) GO 
SUB 228: ON KEY( 1 ) GOSUB 242: ON KEY( 2) GOSUB 245: ON KEY( 1 O) GOSUB 248 

208 ON KEY(5) GOSUB 252 

209 V A $ = " " 

210 KEY( 1 1 ) ON: KEY( 1 2) ON:KEY(13) ON:KEY(14) ON: KEY( 1 ) ON: KEY( 2) ON: KEY( 5) ON: K 
EY( 1 0) ON 

211 KEY(11) STOP: KEY( 12) STOP:KEY(13) STOP:KEY(14) STOP: KEY( 1 ) STOP: KEY( 2) STOP 
: KEY( 5) STOP: KEY( 1 0) STOP 

212 IF VA$ = ‘* VALIDATION** THEN 231 

213 IF VA$=”REVERSION" THEN 159 

214 IF VA$="PASSE" THEN 28 

215 GOTO 209 

216 REM *********************************************************************** 

217 REM * GESTION DU CURSEUR * 

218 REM a********************************************************************** 

219 IF LI=1 THEN LI=8 ELSE LI=LI-1 

220 LOCATE ( 3*LI)-1, ( 7*CO) +19, 1 

221 RETURN 

222 IF CO=1 THEN CO=8 ELSE CO=CO-1 

223 LOCATE ( 3 *LI) -1, ( 7*CO> +19, 1 

224 RETURN 

225 IF CO= 0 THEN CO=1 ELSE CO = CO+1 

226 LOCATE ( 3*LI) -1, ( 7*CO) +19, 1 

227 RETURN 

228 IF LI= 8 THEN LI = 1 ELSE LI=LI+1 

229 LOCATE (3*LI)-1,(7*C0)+19,1 

230 RETURN 

231 REM a>».*aa.vaaa**aa.'.aa*aààaaaaa.».a.aa.aaaaa**a*a****a**aa*àaaa****àaa***aà*a*aaa 

232 REM * INITIALISATION CHOIX UTILISATEUR * 

233 REM **************AAAAAAAA**ÀÂAAA*AA*AA*AAA*A*AA*A*****AA***A*A**AAAAAAAAAA 

234 T = I NT( 1 0 * LI + CO) 

235 LOCATE 0,4 

236 PRINT STRING$( 14, " " ); 

237 LOCATE 7,4 

238 PRINT STRING$( 19, " " ) ; 

239 RETURN 

240 REM *********************************************************************** 

241 REM * GESTION DES CHOIX SPECIAUX UTILISATEUR * 

242 REM *********************************************************************** 
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243 VA$ = "REVERSION" 

244 RETURN 

245 ’ 

246 VA$ = " PASSE 1 ' 

247 RETURN 
24 8 1 

249 VA$=”VALIDATION" 

250 RETURN 

251 REM ******AAAAAA*A****AAAA*AAAA*AA*A*A***AAAAA***AAAAAAAAAAAAAAAA.AAAAAA.AAA 

252 REM * FIN DE PARTIE * 

253 REM *AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

254 LOCATE 8, 5: PRINT "FIN* 1 

255 LOCATE 9,5:PRINT "PRESSEZ [TOUCHE]" 

256 QQ$=INKEY$: IF QQ$="" THEN 256 

257 RUN 

258 REM **a*aaaaaaaaaaaaaaaaaaaaaaaaàaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


REM * 

REM 
KEY OFF 

DIM G( 200) , H( 1 00) 
C LS 


259 

260 
261 
262 

263 

264 E=33 

265 F = 66 


DECLARATIONS 


266 

DATA 

0, 

0, 

0, 

0, 0, 

0, 0, 

0, 

0. 

0 

267 

DATA 

0, 

1, 

-1. - 

15, -15, -1 

5, -15, 

-1, 2, 

0 


268 

DATA 

0, 

“1. 

-1, 

-5, -5, 

-5, -5, 

-1, 

-1. 

0 

269 

DATA 

0, 

-15, 

-5, 

-12, -10, 

-10, -12, 

-5, 

-15, 

0 

270 

DATA 

0. 

-15, 

-5, 

-10, 2, 

i. -io, 

-5, 

-15, 

0 

271 

DATA 

0, 

-15, 

-5, 

-10, 1, 

2, -10, 

-5, 

-15, 

0 

272 

DATA 

0» 

-15, 

-5, 

-12, -10, 

-10, -12, 

-5, 

-15, 

0 

273 

DATA 

0. 

-1» 

-1, 

-5, -5, 

-5, -5, 

-1. 

-1, 

0 

274 

DATA 

0, 

2, 

-1i - 

15, -15, -1 

5, -15, 

-1. 1. 

0 


275 

DATA 

0, 

o, 

0, 

0, 0, 

0, 0, 

0, 

0, 

0 


A 

A A 


276 RETURH 


QL 


LE CHATEAU MAUDIT 

Un jeu d'aventures textuel rigolo où il faut s'emparer 
de microfilms et sortir du château. 

Pas si facile, il y a des pièges partout ! Les dialogues se font 
sous la forme «VERBE À L'INFINITIF/COMPLÉMENT. » 


1 REMark ********************** 

210 IF Z$=" " THEN NEXT i 

2 REMark Le chateau-maudit 

220 INK 7 

3 REMark par J.M. PARMENTIER 

230 FOR A=0 TO 45 + RND(-JUGGLE TO 

4 REMark ********************** 

JUGGLE) STEP 2 

ÎOO DEFine PROCedure bounce 

240 BEEP 200,30-A 

110 WINDOW #1,512,256,0,0 

250 CURSOR 16*i+50,A 

120 PAPER 0 

260 PRINT Z$ 

130 INK 7 

270 NEXT A 

140 CLS 

280 FOR T=11 TO 1 STEP -2 

150 CLS #0 

290 FOR y-1 TO STEP 2 

160 A$-"Le chateau maudit" 

300 CURSOR 16*i+50,A-y: PRINT Z$ 

170 JUGGLE » 4 

310 PAUSE T/15 : NEXT y 

180 CSIZE 3,1 

320 FOR y=T TO 1 STEP -2 

190 FOR 1-1 TO LEN(A$) 

330 CURSOR 16*i+50,A-y:PRINT Z$ 

200 Z$=A$(i) 

340 PAUSE T/15:NEXT y 
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350 BEEP 400, T 
360 END FOR T 
370 END FOR i 
300 CSJ.ZE 0,0 
390 CURSOR 150,100:PRINT 
"par J.M. PARMENTIER" 

400 PAUSE 10 

410 END DEFine bou^nce 

420 bounce:PAUSE 

430 PAPER 1:CLS 

440 initialisation 

450 saisie 

460 GO TO 450 

470 DEFine PROcedure initialisation 
480 inv=0 


490 RESTORE 

500 WINDOW #1,450,255,0,0:INK 7 : PAPER O 
510 DIM N(28),s(28),e(28),o(28) 

520 DIM objet$(30,25) 

530 DIM article$(30,3),ob(30) 

540 FOR i=1 TO 28 

550 READ N(i),s(i),e(i),o(i) 

560 NEXT i 

570 FOR i=1 TO 30 

580 READ articles(i),objet$(i) 

590 NEXT i 

600 FOR i = 1 TO 30 

610 READ ob(i) 

620 NEXT i 
630 y=14 


640 CLS:PRINT:PRINT 

650 PRINT 'Bonjour, agent QL.22. Votre mission.est de retrouver un 


précieux microfilm que 1’infâme VAXON nous a volé." 

660 PRINT "Nous savons qu'il est'caché dans le chateau de WEINDERBERG. 
Vous vous y rendrez donc et ne revenez que votre mission accomplie 


670 PRINT:PRINT" 

-BONNE CHANCE_" 

680 PRINT:PRINT" 


signe:008" 

690 DATA 0,0,102,0,0,7,3,101,0,8,4,2,0,9,5,3,0, 10,6,4,0,0,0,5,2, 11,0,0 
700 DATA 3,0,9,0,0, 13,0,8,5,14,0,0,7,15,12,0,0,16,0, 11,9, 17, 14,0, 10,0,0,13 
710 DATA 11,0,16,0,12,20,17,15,13,0, 18,16,0,22,0,17,0,24,0,0,16,25,21,0 
720 DATA 0,0,0, 20,18, 27,0, 0,0,0, 24, O, 19,0, 25, 23, 20,0, 26, 24,0,0, 27, 25, 22,0, 
128,26,0,0,0,127 

730 DATA "un", "parchemin","une", "fiole","une","boite","un","bouton”,"un", 
"couteau", "un","tournevis", "une","armure","un","coffre-bleu","un", 
"coffre-rouge" 


740 DATA "un","coffre-vert","un","collier","une","statuette", "une". 


"tablette","un","livre","une","armoire","une","table" 

750 DATA "une","chaise","une", "cassette","un","magnétophone", "une", 

"torche","un","briquet","une","arquebuse",un","microfilm","un","ecrin" 
,"un","piédestal" 

760 DATA "du","sable","un","sac","une”,"chaussure","une","cheminee","un"," 


lit" 


770 DATA 8,20,0,0,27, 19,7,4,4,4,23,2,6,21, 13, 10, 10,0,21,24,8,22,0, 1, 1 
780 DATA 0,9,0,16,15 


790 re=0 
800 


INPUT "que faites-vous ?",ww$ 

810 IF ww$<>"entrer" THEN PRINT "impossible": GO TO 800 
820 CLS 

830 PRINT "vous etes dans l’entree. ( NO)" 

940 END DEFine initialisation 

850 DEFine PROCedure saisie 

860 INPUT "que faites-vous ?",action$ 

870 IF LEN(action$)=l AND action$<>"i" THEN déplacement 
880 IF action$="i" 

890 PRINT "vous avez:” 

900 FOR i-1 TO 30 

910 IF ob(i)«50 THEN PRINT article$(i) î objet$(i) 

920 NEXT i 
930 END IF 

940 IF LEN(action$)o1 then action 
950 END DEFine saisie 
960 DEF PROCedure déplacement 
970 CLS 

IF action$="n" AND N(y)>0 AND N(y)<29 THEN y=N(y) 

IF action$ = "s" AND s(y)>0 AND s(y)<‘29 THEN y=s(y) 
1000 IF action$ = "e" AND e(y)>0 AND e(yX29 THEN y=e(v) 
1010 IF action$="o" AND o(y)>0 AND o(y)<29 THEN y=o(y) 
1020 SELect on y 


980 

990 
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1030 ON y*1 

1040 PRINT "Vous etes dans un donjon du chateau" 

1050 ON y = 2 

1060 PRINT "Vous etes dans une antichambre" 

1070 ON y-3 

1080 PRINT "Vous etes dans une grande salle" 

1090 ON y-4 

1100 PRINT "Vous etes dans une crypte peinte en rouge" 

1110 ON y-5 

1120 PRINT "Vous etes dans un couloir. ( SE )" 

1130 ON y=6 

1140 PRINT "Vous etes dans une tour. ( 0 )" 

1150 ON y-7 

1160 PRINT "Vous etes dans un corridor. (NS)" 

1170 ON y-8 

1180 PRINT "Vous etes dans une petite salle de garde. ( NE )" 

1190 ON y-9 

1200 PRINT "Vous etes dans une chambre. ( OS )" 

1210 ON y-10 

1220 PRINT "Vous etes dans une salle a manger. (NS)" 

1230 ON y-11 

1240 PRINT "vous etes dans un long couloir. (NSE )" 

1250 ON y-12 

1260 PRINT "vous etes dans une cuisine. ( OS )" 

1270 ON y-13 

1280 PRINT "vous etes dans la dépendance d'une cuisine. ( NSE )" 

1290 ON y=14 

1300 PRINT "vous etes dans l'entree. ( NO )" 

1310 ON y=15 

1320 PRINT "vous etes dans la salle de réception. ( NE )" 

1330 ON y=16 

1340 PRINT "vous etes dans un grand corridor. (N S E 0 )” 

1350 ON y-17 

1360 PRINT "vous etes dans une chambre bleue. ( N E 0 )" 

1370 ON y=10 

1380 PRINT "vous etes dans une chambre rouge. ( S 0 )" 

1390 ON y=19 

1400 PRINT "vous etes dans une petite antichambre. ( S )" 

1410 ON y=20 

1420 PRINT "vous etes dans un tunnel étroit. ( NES )" 

1430 ON y=21 

1440 PRINT "vous etes dans un cul de sac. ( 0 )" 

1450 ON y=22 

1460 PRINT "vous etes dans une alcôve. (NS)" 

1470 ON y=23 

1480 PRINT "vous etes dans un donjon. ( E )" 

1490 ON y=24 

1500 PRINT "vous etes a un embranchement. ( N 0 E )" 

1510 ON y=25 

1520 PRINT "vous etes dans une salle de garde. ( N 0 E )" 

1530 ON y=26 

1540 PRINT "vous etes dans un petit couloir. ( E 0 )" 

1550 ON y=27 

1560 PRINT "vous etes dans une étrange piece rouge. ( NO )" 

1570 ON y=28 

1580 PRINT "vous sentez l'air frais vous fouetter le visage...la sortie!!! 

tt 

1590 IF ob(23) 50 THEN PRINT "mais vous n’avez pas lke microfilm... 

minable...": ELSE PRINT "BRAVO" 

1600 STOP 

1610 END SELect 

1620 PRINT "vous voyez :" 

1630 FOR i-1 TO 30 

1640 IF ob(i)=y THEN PRINT article$(i) ! objet$(i) 

1650 NEXT i 

1660 END DEFine déplacement 
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1670 DEFine PROCedure action 
1600 FOR i-2 TO LEN(action$)-1 
1690 IF action$(i)=" M 
1700 v$-action$(l TO i-1) 

1710 o$-action$(i+1 TO LEN(action$)) 

1720 i-LEN(action$)-1 
1730 END IF 
1740 NEXT i 
1750 x-0 

1760 FOR i-1 TO 30 

1770 IF o$=objet$(i) THEN x=i 

1?§8 ¥Pï-è i THEN PR INT "impossible” : GO TO 860 
1800 IF v$-"prendre" 

1810 IF x-8 OR x-9 OR x-10 OR x=12 OR x-15 OR x-16 OR x-17 OR x-25 OR x-29 
OR x-30 THEN PRINT "impossible": GO TO 860 
1820 IF ob(x)=50 THEN PRINT "vous l'avez déjà !":G0 TO 860 
1830 IF ob(x)<> y THEN PRINT "je n'en vois pas !": GO TO 860 
1840 IF (x-23 OR x-24) AND ob(26) 1 THEN PRINT "boooOOOOM, le piédestal 
était piege...BYE-BYE": STOP • 

1850 IF x = 26 AND ob(27)<>50 THEN PRINT "vous n'avez pas de récipient !”: GO 
TO 840 

1860 IF inv<7 THEN ob(x)=50:PRINT M ok":inv-inv+1 

1870 IF inv >6 THEN PRINT "vous etes trop charge î": GO TO 860 

1880 END IF 

1890 IF v$="poser" 

1900 IF ob(x)<> 50 THEN PRINT "vous ne l’avez pas !": GO TO 060 

1910 IF x=26 THEN ob(27)«y 

1920 ob(x)-y :PRINT "ok":inv-inv-1 

1930 END IF 

1940 IF v$="regarder" 

1950 IF ob(x)<> y AND ob(x)<>50 THEN PRINT "je n’en vois pas !"GO TO 860 
1960 IF x-7 THEN PRINT "vous voyez une boite dans 1'armure...":ob(3)-y:GO 
TO 860 

1970 IF x-3 THEN PRINT "il y a un bouton dessus.GO TO 860 
1980 IF x-16 THEN PRINT "il y a tas de sable sur la table...":ob(26)-y:GO 
TO 860 

1990 IF x=29 THEN PRINT "il y a une chaussure dans la cheminee...":ob(28)- 
y:GO TO 860 

2000 IF x-13 THEN PRINT "il y a écrit :'ne prenez ni le ciel, ni ia terre' 
":G0 TO 860 

2010 IF x-12 THEN PRINT "c'est un buste de cerbere.GO TO 860 
2020 IF x-1 THEN PRINT "il y a écrit :'celui qui tourne trouveraGO TO 
860 

2030 IF x-25 THEN PRINT "il est richement sculpte":GO TO 860 

2040 IF x-30 THEN PRINT "il est défait depuis peu...":GO TO 860 

2050 IF x-28 THEN PRINT "il y a une cassette dedans...”:ob(18)-y: GO TO 060 

2060 PRINT "il n'y a rien d'autre a dire..." 

2070 END IF 

2080 IF v$-"ouvrir" 

2090 IF ob(x)<> y AND ob(x)050 THEN PRINT "je n’en vois pas ! "GO TO 860 
2100 IF x-3 THEN PRINT "elle saute a peine ouverte... BYE-BYE": STOP 
2110 IF x-8 THEN PRINT "boooOOOOOOOM_BYE-BYE": STOP 

2120 IF x-9 THEN PRINT "il y a une inscription a 1'intérieur: LA PREMIERE 
DIAGONALE EST LA MEILLEURE MAIS LA PLUS DANGEREUSE": GO TO 860 
2130 IF x-15 THEN PRINT "elle est vide...":GO TO 860 

2140 IF x-10 THEN PRINT "un serpent sort du coffre et vous mord...BYE-BYE" 
: STOP 

2150 IF x-24 THEN PRINT "il y a un MICROFILM a 1’intérieur":ob(23)-y:GO TO 
860 

2160 IF x-14 THEN PRINT "un mauvais sort envoûtait ce livre...BYE-BYE": 
STOP 

2170 PRINT "impossible" 

2180 END IF 

2190 IF v$- H tourner" 

2200 IF yo 2 OR x<>12 THEN PRINT "impossible": GO TO 860 
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230 AT #0,5,0:PRINT #0,"Mon score :":PRINT #0, score(O) 

240 AT #0,9,0:PRINT #0,"Votre score :":PRINT #0,score(1):coup=0 
250 REPeat boucle 
260 r$="" 

270 FOR i-0 TO 3 

280 q$=INKEY$: IF q$ = "" THEN GO TO 280 
290 IF q$“"c" THEN carre i,coup:r$=r$ & 1 
300 IF q$="r" THEN rond i,coup:r$»r$ & 2 
310 IF q$="+" THEN croix i,coup:r$-r$ & 3 
320 IF q$="1" THEN losange i,coup:r$-r$ & 4 
330 IF q$ = "t" THEN triangle i,coup:r$»r$ & 5 
340 IF q$ INSTR "cr+lt"=0 THEN GO TO 280 
350 NEXT i 
360 we=test(a$, r$) 

370 CURSOR #2,15,230-coup*22:PRINT #2,INT(we):CURSOR #2,60,230-coup*22: 

PRINT #2,(we-INT(we))*10: IF we=4 OR coup=10 THEN EXIT boucle 
380 coup=coup+l 
390 END REPeat boucle 
400 score(1)=score(1)+10-coup 
410 sc:PAUSE:CLS:CLS#2 
420 FOR i=0 TO 100 STEP 9 

430 LINE 0,i TO 200,i:LINE #2,0,i TO 100,i 
440 NEXT i 

450 FOR i=0 TO 100 STEP 14 
460 LINE i,0 TO i,100: 

470 NEXT i 

480 LINE #2,13,0 TO 13,100 
490 joue 

500 score (0)^score(O)+10-p 
510 GO TO 160 

520 DEFine FUNction test(bon$, essai$) 

530 LOCal z,b$,e$:b$-bon$:e$=essai$ 

540 z-O 

550 FOR i-1 TO 4: IF e$(i)=b$(i) THEN z = z+1:e$(i)=" ":b$(i) = " " 

•560 FOR i-1 TO 4 

570 FOR j = l TO 4:IF e$(i)=b$(j) AND b$(j) " " THEN z-z+.I :b$(j)-" ":es$ 

(i)-" ” 

580 NEXT i 
590 RETurn z 
600 END DEFine 

610 DEFine PROCedure carre(c,k) 

620 FILL 1 

630 LINE c*14+4,k*9+3 TO c*14+4,k*9+7 TO c*14+8,k*9+7 TO c*14*8,k*9*3 
640 FILL 0 
650 END DEFine 

660 DEFine PROCedure triangle(c,k) 

670 FILL 1 

680 LINE c*14+4, k*9 + 3 TO c*14+6,k*9+7 TO c*14+8,k*9+3 
690 FILL 0 
700 END DEFine 

710 DEFine PROCedure rond(c,k) 

720 FILL 1:CIRCLE c*14+6,k*9+5,2 
730 FILL 0 
740 END DEFine 

750 DEFine PROCedure losange(c,k) 

760 FILL 1 

770 LINE c*14+4, k*9 + 5 TO c*14+6, k*9+7 TO c*14+8,k*9+5 TO c*14+6,k*9+3 TO 
c*14+4,k*9 + 5 
780 FILL 0 
790 END DEFine 




800 DEFine PROCedure croix(c,k) 

810 LINE c*14+4,k*9+5 TO c*14*8,k*9+5 

820 LINE c*14+6,k*9 + 3 TO c*14*6,k*9+7 

830 END DEFine 

840 DEFine PROCedure joue 

850 p»0:DIM esd$(10,4),repo(10) 

860 FOR ii-1 TO 5 

870 FOR jj-1 TO 5 

880 FOR kk= 1 TO 5 

890 FOR 11=1 TO 5 

900 a$ = ii fi. jj & kk S. ll:flag=0 

910 IF p=0 THEN GO TO 950 

920 FOR m=l TO p 

930 IF ABS(test(a$,esd$(m))-repo(m))> 5E-4 THEN flag-l:m=p 
940 NEXT m 

950 IF flagol THEN aff:IF rr = 4 THEN GO TO 970 

960 NEXT 11:NEXT kk:NEXT j j:NEXT ii 

970 END DEFine 

980 DEFine PROCedure sc 

990 AT #0,6,0:PRINT #0,score(O) 

1000 AT #0,10,0:PRINT #0,score(l) 

1010 END DEFine 

1020 DEFine PROCedure aff 

1030 FOR u-1 TO 4 

1040 1F a$(u)=1 THEN carre u-l,p 

1050 IF a$(u)=2 THEN rond u-l,p 

1060 IF a$(u)=3 THEN croix u-l.p 

1070 IF a$(u)*4 THEN losange u-l,p 

loeo IF a$(u)=5 THEN triangle u-l,p 

1090 NEXT u:p = p +1 

1100 CURSOR #2,15,230-(p-1)*22:INPUT #2,rr:CURS0R #2,60,230-(p-1)*22:INPUT 

#2, qq 

1110 repo(p)=rr+qq/10:esd$(p)=a$ 

1120 END DEFine 


QL 


LE COMPTE EST BON 

Pour tous les matheux ou ceux qui ont besoin de progresser 
en calcul mental, voilà un exercice 
utile, mais non moins amusant, à tester en famille... 


]00 REMark ************************ 

110 REMark le compte est bon 

120 REMark par J.M. PARMENTIER 
130 REMark ************************ 

140 ms=0:vs=0 
150 DIM a(100) 

160 WINDOW 511,255,0,0:PAPER 0:INK 7:CLS 
170 CSIZE 3,1:AT 5,5:PRINT "LE COMPTE EST BON" 

180 CSIZE 1,0:AT 20,20:INPUT "Votre Niveau (3 a 0) :";niv 
190 IF niv O OR niv 3 THEN GO TO 180 

200 CLS:WINDOW #0,511,35.0,0:BORDER #0,2,7,0:INK #0,7:PAPER #0,3:CLS #0 
210 CSIZE #0,1,0:PRINT #0," MON SCORE VOTRE 

SCORE" 
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220 score 

230 0PEN_NEW #3,scr_22x22a200xl00:0PEN_NEW #4,scr_22x22a222xlOO:0PEN_NEW #5, 
scr_22x22a244xlOO:CLS #3:CLS #4:CLS #5:INK #3,7: INK #4,7:INK #5,7:CSIZE 

#3, 2, 1 :CSIZE #4,2.1:CSIZE #5,2,1 
240 BORDER #3,1,7: BORDER #4,1,7:BORDER #5,1,7 

250 WINDOW #2,511,30,0,200:INK #2,0:PAPER #2,7:BORDER #2,1,7,0 
260 CLS #2 

270 FOR 1=1 TO 8:LINE #2,1*170,0 TO i*170,600 
280 tire 

290 CSIZE #2,2,1 : FOR i = l TO 8:AT #2,0,i*5-3:PRINT #2,a(i): PAUSE 50 
300 trouve a 

310 chiffre$=s+RND(-niv TO niv):r-chiffre$ 

320 PRINT #3,chiffre$(1) 

330 PRINT #4,chiffre$(2) 

390 PRINT #5,chiffre$(3) 

400 PAUSE 1700 

410 AT 5,10:INPUT "votre résultat :";es 
420 AT 6,10:PRINT "mon résultat :";s 

430 IF ABS(es-rK=ABS(s-r) THEN PRINT " Bravo, expliquez vous...": 

PAUSE 100:expl a,es:GO TO 200 • 

440 PRINT " Je gagne car..." 

450 PAUSE 100 

460 CLS:AT 5,5:PRINT s;" - ";w$:PAUSE 
470 IF s-r=0 THEN ms»ms+6:ELSE ms-ms+4 
480 GO TO 200 

490 DEFine PROCedure trouve (a) 

500 s=0 
510 w$="" 

520 FOR i=l TO 8 
530 w=RND(1 TO 4) 

540 SELect ON w 
550 ON w=1 

560 s=s+a(i):w$-w$ & & a(i) 

570 ON w=2 

580 s=s*a(i):w$-w$ & "*" & a(i) 

590 ON w=3 

600 IF s>a( i ) THEN s-s-a(i):w$-w$ 6, & a( i ) : ELSE GO TO 530 

610 ON w=4 

620 IF s/a(i)=INT(s/a(i)) THEN s-s/a(i):w$-w$ & "/" & a(i):ELSE GO 

TO 530 

630 END SELect 

640 FOR j-1 TO i: IF s«a(j) THEN w$= " " & a(j) 

650 NEXT i 

660 IF s<103 OR s?997 THEN GO TO 500 
670 IF w$(l)="*" OR w$(1)-"/" 

680 m="♦” INSTR w$:n-"-" INSTR w$ 

690 IF (m<n AND mOO) OR n=0 THEN w$-w$(m TO) 

700 IF (n< m AND nOO) OR m-0 THEN w$-w$(n to) 

710 END IF 
720 W$«w$(2 TO) 

730 END DEFine 

740 DEFine PROCedure tire 

750 q$-"111222333444555666777888999aaabcde" 

760 FOR i-1 TO 8 
770 r-RND(1 TO 34) 

780 IF r<28 
790 a(i)-q$(r) 

800 ELSE 

810 IF q$(r)="a" THEN a(i)-lO 
820 IF q$(r)-"b" THEN a(i)-25 
830 IF q$(r)-"c" THEN a(i)-50 
840 IF q$(r)=”d" THEN a(i)-75 
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THEN a(i) =100 


050 IF q$(r)=”e" 

860 END IF 
870 NEXT i 
800 END IF 
890 END DEFine 
900 DEFine PROCedure score 

910 AT #0,2,10:PRINT #0; FILL$("O" , 4-l,EN(ms)) & ms:AT #0, 2, 51 : PRINT #0,FILL$ 
( "0" , 4-LEN(vs) ) 6, vs 
920 END DEFine 

930 DEFine PROCedure expl(a,es) 

940 CLS:j=8:erreur=0 

950 FOR i = l TO 8:PRINT a(i);" .”;NEXT i : PRINT: PRINT 

960 REPeat boucle 
970 flag=0 

980 PRINT " ”; : INPUT d;:PRINT " 

990 FOR i-1 TO j 

1000 IF d-a(i) THEN a(i)=0:flag-1:i*j 
1010 NEXT i 

1020 IF flag=0 THEN PRINT " ERREUR”:erreur=1EXIT boucle 

1030 INPUT E$;PRINT " 

1040 flag=0 
1050 INPUT f; 

1060 FOR i=1 TO j 

1070 IF f-a(i) THEN a(i)=0:flag-1:i-j 

1080 NEXT i 

1090 IF fl ag = 0 THEN PRINT ” ERREUR' 1 2 3 4 : erreur-1 : EXIT boucle 

1100 IF E$<>" + ” AND E$ AND AND THEN PRINT ” ER 

REUR": erreur=1 :EXIT boucle 
1110 IF E$ = ” + " THEN res*d + f: j = j•* 1 : a( j ) =res 
1120 IF E$=THEN res=d*f:j-j+1:a(j)-res 

1130 IF E$= ” /" AND d/f=INT(d/f) THEN res = d/ f : j = j +1 : a ( j ) = res : IF resOlNT(res) 
THEN PRINT ” ERREUR"erreur=1 :EXIT boucle 


QL 


ARENE 2024 


Ce jeu permet de s'initier à la programmation de manière 
ludique. Deux robots doivent s'affronter 
dans une arène. Mais avant tout, il vous faudra les créer 
grâce à un mini-langage de programmation avancé. 

Le menu, sous forme d'icônes, permet une utilisation aisée. 


1 REMark ********************** 

2 REMark Arene 2024 

3 REMark par J.M. PARMENTIER 

4 REMark ********************** 

100 DIM prgm$(100, 2 , 200) 

110 CSIZE 1,0: CSIZE #0, l.OiCSIZE (¥2,1,0 

120 WINDOW 512,255,0,0:PAPER 0:CLS:PAPER 7:INK 0 

130 WINDOW #2,470,170,0,40 

140 WINDOW 470,40,0,0:BORDER 2,O,7:BORDER #2,2,7:INK #2,7:PAPER #2,O:CLS 
#2 

150 CLS 

160 WINDOW #0,470,40,0,210:INK #0,7:PAPER #0,0:BORDER #0,2,7,0 
170 q-ask("Editer","Charger”,"Sauver”,"Jouer","Fin") 

1B0 SELect ON q 
190 ON q-lrprog 

200 ON q«2:char 
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210 ON q-3:sauv 

220 ON q=4:joue 

230 ON q-5:fin 

240 END SELect 

250 GO TO 170 

260 DEFine PROCedure prog 

270 cls #2 

280 INPUT #2,"Nom du robot a éditer : ",nom$ 
290 IF nom$-prgm$(O,0) THEN robot-0 
300 IF nom$-prgm$(0,1) THEN robot-1 
310 IF nom$<> prgm$(0,0) AND nom$<>prgm$(0,1) 
320 INPUT #2,"Robot no 1 ou 2 ? ", robot 

330 IF robot<>1 AND robot<>2 

THEN GO TO 320 
340 robot-robot-1 

350 prgm$(0,robot)-nom$ 

360 créer:END IF 
370 CLS #2 

380 w=ask("Liste","Modif","Créer","Fin"," ") 

390 SELect ON w 

400 ON w-1: liste 

410 ON w-2:modif 

420 ON w=3:créer 

430 ON w-4 : GO TO 460 

440 ON w-5 : GO TO 380 

450 END SELect : GO TO 380 

460 END DEFine 

470 DEFine PROCedure liste 

480 CLS #2 

490 FOR i=1 TO 99 

500 IF prgm$(i,robot)THEN i=99:CO TO 530 
510 PRINT #2,i,prgm$(i,robot) 

520 PAUSE 
530 NEXT i 


540 END DEFine 
550 DEFine PROCedure modif 
560 INPUT #2,"Ligne ligne 
570 PRINT #2,progm$(ligne,robot) 

580 INPUT #2,a$:IF aSo"" 

THEN pjrgm$( ligne, robot)-a$ 

590 END DEFine 

600 DEFine PROCedure creer 

610 CLS #2 

620 FOR i-1 TO 99 

630 PRINT #2,i; :INPUT # 2 , prgm$(i,robot) 

640 IF prgm$Ci, robot)-"" THEN i-99 

650 NEXT i 

660 END DEFine 

670 DEFine PROCedure char 

680 CLS # 2 :INPUT #2, "Nom du fichier nom$ 
690 OPEN_IN (513, "mdvl_" & nom$ & "_1" 

700 OPEN_IN #4, "mdvl_" & nom$ 6. "_2" 

710 FOR i-0- TO 99 
720 INPUT #3,prgm$(i,O) 

730 INPUT #4,prgm$(i,1 ) 

740 NEXT i 

750 END DEFine 

760 DEFine PROCedure sauv 

770 CLS #2:INPUT #2,"Nom du fichier :",nom$ 
780 0PEN_NEW #3,"mdvl_" & nom$ & "_1" 

790 OPEN_NEW #4, "mdvl_" 6 nom$ 6 "_2" 

800 FOR i-0 TO 99 
810 PRINT #3,prgm$(i,O) 

820 PRINT #4,prgm$(i,1) 

830 NEXT i 
840 END DEFine 

850 DEFine FUNction ask(al$,a2$,a3$,a4$,a5$) 
860 LOCal x:LOCal y 


870 CLS 

880 LINE 0,45 TO 1000,45:FOR i-1 TO 1000 STEP 200:LINE i,0 TO i,45 
890 AT 2,2:PRINT al$:AT 2,14:FRINT a2$:AT 2,27:PRINT a3$ 

900 AT 2,37:PRINT a4$:AT 2,49:PRINT a5$ 

910 x-0 


920 AT 0,x:PRINT " " 

930 y = x«- (KEYROW(1)-16 AND 
940 IF KEYR0W(1)-64 THEN 
950 SELect ON y 


X<56)-(KEYROW(1)= 2 AND x>0) 


960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 


11 


22 


33 


44 


ON y-0 TO 
RETurn 1 
ON y-12 TO 
RETurn 2 
ON y-23 TO 
RETurn 3 
ON y-34 TO 
RETurn 4 
ON y-45 TO 
RETurn 5 
END SELect 
END IF 

IF y-x THEN GO TO 930 

AT 0,x:PRINT" ":x-y:G0 TO 920 

END DEFine 

DEFine PROCedure joue 
WINDOW #2,250, 147,80,50 


56 


Commentaires : 

Liste des mots compris : 

av : fait avancer le robot dans la dernière direction suivie, 
goto: suivi d’un numéro de ligne, y envoie le programme, 
td : fait pivoter le robot à droite, 
tg : fait pivoter le robot à gauche. 

if mur : le programme exécute les bgnes suivantes (jusqu’à « end if ») si le robot 
rencontre un mur. 

Il Scan : comme « if mur», dans le cas où l’autre robot est à portée de tir du 
premier. 

end If: fin d’une commande «If*, 
suit : dirige le robot vers, l'autre, 
fuit : fait fuir le robot. 

tire : fait perdre 30 unités d’énergie à l’autre robot si celui-ci est à moins de 
deux cases. 

Chaque action use de l'énergie du robot. 


BORDER #2,3,7 

CLS #2:CLS:AT O,O:PRINT prgm$(0,0): AT 0,40:PRINT prgm$(0,1) 

DIM x(2),y(2),dx(2),dy(2),ax(2),ay(2),co(2),p(2),table(28,13) 

FOR i-0 TO 1: x(i)-RND(0 TO 28):y(i)-RND(O TO 13):ax(i)-x(i):ay(i)- 


y(i):P(i)-999 

1170 FOR i-0 TO 1:AT #2, y(i), x(i):PRINT #2,i + l 
1100 co(l)-l:co(0)-l:r-l:dx(0)-l:dx(l)-1:dy(l)-0:dy(0)-0 
1190 REPeat programme 
1200 r--r+l 

1210 z$-prgm$(co(r),r) 

1220 IF z$-"av" 

1230 IF (dx(r)-l AND x(r)<28) OR (dx(r)--l AND x(r)>0) OR (dy(r)-l AND 
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y(r)<13) OR (dy(r)--l AND y(r)>0) THEN x(r)-x(r)♦dx(r):y(r)-y(r)*dy 
(r):p(r)-p(r)-10 
1240 GO TO 1650 
1250 END IF 

1260 IF z$(l TO 4) - ''goto" 

1270 co(r)-z$(6 TO 8) 

1280 GO TO 1700 
1290 END IF 
1300 IF z$-"td" 

1310 p(r)-p(r)-10 

1320 IF dx(r)O 0 THEN dy(r)-dx(r):dx(r):dx(r)-0:GO TO 1650 

1330 IF dy(r)OO THEN dx(r)--dy(r):dy(r)-0:GO TO 1650 

1340 GO TO 1650 

1350 END IF 

1360 IF z$-" if mur" 

1370 IF dx(r)-1 AND x(r)-28 OR dx(r)«-l AND x(r)=0 OR dy(r)-l AND y(.r)-13 
OR dy(r)--1 AND y(r)-0 THEN GO TO 1650 
1380 FOR g-co(r) TO 99:IF prgm$(g,r)-"end if" THEN co(r)-g:GO TO 1650 
1390 END IF 
1400 IF z$-"tg" 

1410 P(r)-p(r) -10 

1420 IF dx(r)<> 0 THEN dy(r)--dx(r)tdx(r)-0:GO TO 1650 
1430 IF dy(r)<>0 THEN dx(r)-dy(r):dy(r)-0:GO TO 1650 
1440 END IF 
1450 IF z$-"suit" 

1460 p(r)-p(r)-20 

1470 IF ABS(x(-r*l)-x(r)l ABS(y(-r-l)-y(r)) THEN dy(r)-sgn(y(-r+1)-y(r)) : 

dx(r)"0:ELSE dx(r)-sgn(x(-r+1)-x(r)) :dy(r)-0 
1480 GO TO 1650 
1490 END IF 
1500 IF z$-"fuit" 

1510 p(r)-p(r)-20 

1520 IF ABS(x(-r*l)-x(r))>ABS(y(-r*l)-y(r)) THEN dx(r)--sgn(x(-r*1)-x(r)) 

:dy(r)-0:ELSE dy(r)--sgn(y(-r+l)-y(r))t/dx(r)-0 
1530 GO TO 1650 
1540 END IF 
1550 IF z$-"if scan" 

1560 p(r)-p(r)-2 

1570 IF SQRT((x(-r+l)-x(r)) A 2*(y(-r*l)-y(r)) A 2>l THEN FOR z-co(r) TO 99:IF 
prgm$(z,r)-"end if" THEN co(r)-z:GO TO 1650 
1580 GO TO 1650 
1590 END IF 
1600 IF z$-"tire" 

1610 p(r)-p(r)-20 

1620 IF SQRT((x(-r+l)-x(r)) A 2*(y(-r*l)-y(r)) A 2) <- 1 THEN p(-r*l)-p(-r+l)- 
30 

1630 GO TO 1650 
1640 END IF 

1650 co(r)-co(r)+1: FOR i-0 TO 1:AT #2,ay(i),ax(i):PRINT #2," " 

1660 FOR i-0 TO 1:AT #2,y(i),x(i):PRINT #2.i*l:IF table(x(i),y(i))-1 THEN 
table (x(i),y(i))-0:p(i)-p(i)-100 
1670 FOR i-0 TO 1 :ay(i)-y(i):ax(i)«x(i) 

1680 FOR i-0 TO 1 : AT 2,i*40:PRINT FILL$("0",4-LEN(p(i))) & p(i):AT 2,i*40+ 
7:PRINT " ": AT 2,i*40*7:PRINT prgm$(co(i),i) 

1690 IF p(r)<-0 OR P(-r+l)<-0 THEN EXIT programme 

1700 END REPeat programme 

1710 PAUSE:GO TO 110 

1720 DEFine FuNction sgn(p) 

1730 IF p-0 THEN RETurn 0 
1740 RETurn p/ABS(p) 

1750 END DEFine 
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Faites déjeuner le petite chenille cybernétique 
tout en évitant les nombreux écueils. 

Les flèches de votre clavier permettent le déplacement. 


100 REMark ************************ 

110 REMark PAR J.M PARMENTIER 

120 REMark ************************ 

130 près 

140 flag=o:p=10:long-1:i-1:CSIZE #0,2,1:INK #0,7 
150 CLS #0:PRINT #0, " SCORE": score=0:sc 

160 WINDOW 470,200,0,0:INK 7:PAFER 0:BORDER 5,7 
170 CLS 

180 DIM an(1000,2) 

190 DIM tab(60,60) 

200 FOR j-1 TO p 

210 a-RND(1 TO 48) :b=RND(l TO 20) :tab(a,b)=2:BLOCK 9,9,a*9,b*9,3 
220 a-RND(l TO 48) :b-RND(l TO 20) :tab(a,b) = 1:BLOCK 9,9,a*9, b*9,7:BLOCK 5,5 
,a*9+2,b*9+2,0 
230 NEXT j 
240 joue 

250 IF flag=l THEN flag=0:p=p*2:CLS:GO TO 190 

260 CLS:AT 10,10:PRINT "score :"; score 

270 PAUSE:PAUSE:PAUSE:RUN 

280 DEFine PROCedure joue 

290 SDATE 1986,7,1,0,0,0:i»long+l 

300 dx-l:dy-0 

310 BLOCK 9,9,an(i,1) ,an(i,2) ,7:IF KEYROW(1)<>64 THEN GO TO 310 
320 REPeat boucle 

330 IF KEYROW(1)= 2 THEN dx=-l:dy=0 
340 IF KEYROW( 1 ) => 16 THEN dx-l:dy-0 
350 IF KEYROW(1)=4 THEN dx=0:dy=-l 
360 IF KEYROW(1)=128 THEN dx=0:dy=l 

370 i = i + l:IF i = 1000 THEN i = long:F0R j = 1000-iong TO 999 :an(j + long-999, 1 ) = 
an(j,1):an(j+long-999,2)=an(j,2) 

380 an(i, l)=an(i-l, 1)+9*dx:an(i,2)»an(i-l,2)*9*dy 
390 BLOCK 9,9, an(i-long,1),an(i-long,2),0 
400 tab(an(i-long,l)/9,an(i-long,2)/9)=0 

410 IF an(i, 1)< 0 OR an(i,2)< O OR an(i,2)> 180 OR an(i,1) >441 THEN BEEP 
10000,200:EXIT boucle 

420 IF tab(an(i,l)/9,an(i,2)/9)=l THEN BEEP 10000,200:EXIT boucle 
430 IF tab(an(i, 1)/9, an(i,2)/9)=2 THEN long = long+1 :BEEP 100,20:score=score+ 
10: sc 

440 tab(an(i,l)/9,an(i,2)/9)-1 
450 BLOCK 9,9,an(i,l),an(i,2),7 

460 w$-DATES:IF w$(17)«l THEN flag-1 :EXIT boucle 


470 END REPeat boucle 

480 END DEFine 

490 DEFine PROCedure sc 

500 AT #0,1,16:PRINT #0,score 


510 END DEFine 
520 DEFine PROCedure près 
530 WINDOW 511,255,0,0 
540 INK 7:PAPER 0 


550 CLS 

560 CSIZE 3,1: AT 5, 5: PRINT " _WORM_” 

570 CSIZE 0,0 

580 AT 20,10 :PRINT "PRESSER UNE TOUCHE": PAUSE:CLS 
590 END DEFine 
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SPECTRUM 


QIX 


L'écran de votre ordinateur est envahi de vecteurs 
qui se déforment et se déplacent en tous sens. 

Usez de ruse et prévoyez leurs mouvements car votre mission 
est de les encercler sans les toucher... 

Vous utiliserez pour réaliser les « lassos » les touches 5 6 7 8. 


1 REM écr it Par rn . v . e l ias , et Peau.fi ne Par erick caberi ? 

2 GÜ SUE! 8000 

5 LET k=5 

6 LET Tii—1 

10 REM imm^m^mm*****:*** 

11 REM FÛOL-LINE But du. «eu fit te in 

dre le score de 150 Points et ceci sans toucher la lisne 

folle. Utiliser les eu 


rseu.r 

15 

16 
20 
30 
35 


■s (5.6,7,3.:- 

REM mmmmmm***** 

REM touche 0 Pour repartir 
BORDER 0 : PAPER 0- INK 6 
CL S 

INK 5 : PLOT 10,15L> DRAW 235,0=DRAW 
0,-140 s DRAW -235,0= DRAW 0,140 
REM ******%**************** 

REM initialisation des 

REM variables 

REM *****t***************t* 

LET x» I NT < RND:*210 )+20 
LET y = INT <RND*130>+20 
LET x1=INT <RND*210>+20 
LET si»INT <RND*130>+20 
LET h*150 
LET b=10 


LET d-245 
LET 9=10 
LET q=0 
LET i,.i=0 
LET f=0 
LET e=0 
LET .1 = 1 
LET sc=0 
LET t»0 

PR INT AT 1,20.» INK Z> "NIVEAU * ".» ni 
REM %%%%*%%%%%%%%%%%%%%%%%% 

REM Routine PrineiP a 1e 

rem 

INK 5 

GÜ SUB 1000 
GO SUB 300O 
LET t=0 


123 

124 

199 

200 
1 000 
1005 
1010 
1020 
1 030 
1040 
1050 
1055 
1 090 
2000 

2005 

2006 
2010 
2020 
2030 
2040 
2050 


PR INT AT 1,5; INK 2; GVER 0; "SCORE = " ; sc.» " 1 

IF sc>=150 THEN GO TO 5000= REM test record 
PLOT x,y= DRAW xl-x,sl-y 
GO TO 100 
REM 

REM test clavier 

rem mm*******m*mm 

IF INKEV$="6" THEN LET h=h-2= LET sc=sc+l= C 

IF INKEY$="7" THEN LET b=b+2= LET sc=sc+l= i 

IF INKEY$="8" THEN LET 9=9+2= LET sc«sc+l= C 

IF INKEY$="5" THEN LET d=d-2= LET sc=sc+l= L 

IF INKEY$="0" THEN GO TO 1 

RETIJRN 

rem m****m**##m*m** 

REM af f i cha.9e des 1 i mi tes 
REM du terrain 

rem mm**mmmm#** 


t=6 = PLOT 9,h= DRAW 255-<255-d >-9,0 
t=7= PLOT 9,b= DRAW 255-<255-d>-9,0 
t=8 = PLOT 9,b = DRAW 0,175-075-h>-b 
t=5 = PLOT d,b= DRAW 0,175-0 75-h>-b 


RETIJRN 

RETIJRN 

RET.URN 

RETIJRN 
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3000 

3005 

3006 
3010 
3013 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 
3023 

3029 

3030 

3031 

3032 

3033 

3034 
3090 
3100 
3110 
3115 
3120 
3130 
4000 


REM *********************** 
REM calcul des coordonnées 
REM de le. droite 

REM *********************** 
LET x=x-< k AND 4=1) 

LET x-x-Kk AND 4=0) 


IF x+k >,=d 

THEN 

LET 4=1= 

IF 

t=5 

THEN 

GO 

sue 

4000 

IF x-k<=9 

THEN 

LET 4=0= 

IF 

t=8 

THEN 

GO 

SUB 

4000 

LET y =y-<k 

AND 

»,»=1)= INK 

4 






LET y=y+< k 

AND 

i,;=0 > 







IF y+k >=h 

THEN 

LET i,i=1 = 

IF 

t=6 

THEN 

GO 

SU B 

4000 

IF y-k<=b 

THEN 

LET i,i=0 = 

IF 

t=6 

THEN 

GO 

SUB 

4000 


LET x1=x1-<k AND e=l> 
LET xl=xl+<k AND e=0) 


IF xl-k<=9 

THEN LET e=0= 

IF 

t=8 

THEN 

GO 

SUB 

4000 

IF xl+k>=d 

THEN LET e=l= 

IF 

t=5 

THEN 

GO 

SUB 

4000 

LET y 1 =y 1 -< 

k AND f=0> 







LET yl=yl+< k AND f=l ) 







IF y 1+k >=h 

THEN LET f=0= 

IF 

t=6 

THEN 

GO 

SUB 

4000 

IF y 1-k< =b 

THEN LET f=l= 

IF 

t=7 

THEN 

GO 

SUB 

4000 


PLOT x .• y : DRAW x 1 -x , y 1 -y 
RETURN 

REM tttt******************* 
REM test- co 11 i s i ori 

REM *********************** 
REM MALUS 

REM *********************** 


4010 1F x>=d OR x<=9 OR y >=h OR y<=b OR xl>=d OR xl<=9 OR y 1 
TO 4015 


np y i 


=b THEN GO 


4011 RETURN 

4015 PLOT x, y = DRAW xl-x,yl~y 

4020 LET sc=sc-INT (RND*20> = IF sc<0 THEN LET sc=0 

4030 FOR f=l TO 30= BORDER 0= BORDER 1= BORDER 0= BORDER 2= BORDER 0= BEER .002, 
f = NEXT f 

4040 PLOT x.-y = DRAW xl-x,yl-y 
4050 RETURN 

5000 REM *********************** 

5005 REM BRAAVÜOÜ! 

5010 REM *********************** 

5020 CLS * FOR f=l TO 20= PRINT AT 10,12.: INK f/3;"BRAVO*"■ BEER „Ül,f= NEXT f 


5030 FOR f=l TÜ 100= NEXT f 

5040 J.ET k =k +5 

5045 LET ni-ni+1 

5050 GO TO 20 

3000 REM Présentation 

8001 LEI 4ix=l= BORDER 0= PAPER 0= 

2013 LET 4 1X=4 l.X+i 


8015 PRINT AT 12,8; 

8016 PRINT AT 13,8; 

8017 PRINT AT 14,8; 

8018 PRINT AT 15,8; 


INK 4 i x ; " WÊÊM 
INK 4ix;"■ ■ 

INK 4ix;"■ ■ 
INK 4jv;»l ■ 


8019 


PRINT AT 16,8; 


INK 4ix.» 


8050 IF 4ix=7 THEN LET 4ix=l 


8060 IF INKEVM"" THEN GO TÜ 8013 
8065 GO TO 5 


9998 REM li9ne sauvegarde 

9999 SAVE "4ix" LINE 1 







SPECTRUM 


TRONIX 


Chevauchant votre moto photonique, vous devez lutter contre 
votre ennemi mortel, motorisé lui aussi. 

Le sillage laissé par les deux motos est mortel pour l'un 
comme pour l'autre. Se joue au joystick 
(si vous possédez une interface AGF ou Protek) ou au clavier 
(utiliser les touches 5678 ou T Y U I). 


tronix 14/6/86 

1 REM joueur a : 5678 

2 REM .joueur b-'taui 

3 BORDER 0- PfiPER 0= INK 4 ! CLS 

4 FOR f=USR “a" TO USR "ro"+7 

5 RERD user- - POKE f,user 

6 HEXT f 

7 GO SUB 2000 : CLS 

9 INK 6= FOR f=0 TO 31- PR INT RT 0* f ; “C" :• RT 21, f; "G" * NEXT f = FOR f=0 TO 21 : 

PR INT RT f,0; ,l I"/RT f,31;"E“ = NEXT f* PRINT RT 0,0; "B"; RT 0,31 ; "D" ; RT 21,0;"H“;R 

T 21,31; "F" 

10 LET a=20= LET b=14 = LET c»20' LET d<=16 

15 LET P1=0 = LET P2=0' LET P3=l« LET P4=0 

16 LET m 1 =0•• LET m2=0' LET m3=l * LET m4=0 


10 LET a=20= LET b=14= LET c*20' LET d<=16 

15 LET P1=0= LET P2=0' LET P3=l ' LET P4=0 

16 LET m1=0 : LET m2=0' LET m3-1 * LET m4=0 

17 LET z=0* LET x=0 

20 PRINT RT a,b; INK 2i ,, R ,, jRT c,d; INK l;"*" 

21 FOR f=9 TO 0 STEP -1* PRINT RT 12,15; INK 7;f= BEER .2,f' NEXT f« 
12,15;“ " 

25 IF INKEV$=“5" THEN GO SUB 200' LET P 1 = 1 

27 IF P 1 = 1 THEN GO SUB 310' GO SUB 510' GO SUB 1000 

30 IF INKEY$="t" THEN GO SUB 220' LET ml=l 

33 IF ml=l THEN GO SUB 320' GO SUB 700' GG SUB 1000 

40 IF INKEY$=“ 6 ” THEN GO SUB 200' LET P2=l 

45 IF P2=1 THEN GO SUB 355* GO SUB 500* GO SUB 1008 

50 IF INKEV$= , 'a" THEN GO SUB 220' LET ro2=l \\ JM9U 

55 IF rr»2=l THEN GO SUB 365' GO SUB 700' GO SUB 1000 

60 IF INKEY$="7“ THEN GO SUB 200' LET P3=1 

65 IF P3=1 THEN GO SUB 305' 'GO SUB 500' GO SUB 1000 /fojM 

70 IF INKEY$=“u" THEN GO SUB 220' LET m3=l / 

75 IF m3=l THEN GO SUB 315' GO SUB 700' GO SUB 1000 \ 

80 IF INKEV*= ,, 3" THEN GO SUB 200- LET P4=1 7 

85 IF P4=1 THEN GO SUB 360' GO SUB 500- GO SUB 1000 //iïW /n A 

90 IF INKEY*- M i" THEN GO SUB 220' LET m4=l tfâtygrttàf 

95 IF tf.4=l THEN GO SUB 370' GO SUB 700' GO SUB 1000 ü 

100 GO TO 25 

200 REM réinitialisation claPet'a / 

205 LET P 1=0' LET P2=0' LET P3=0' LET P4=0' RETURN f / 

220 REM réinitialisation claPet'b / [ [<SÏ[ fegjp 

225 LET ml=0 1 LET m2=0* LET m3=0' LET m4=0' RETURN \ 

300 REM décrément \ \V 7 fEp 6 ' 

305 LET a=a-l' RETURN V7T4JW *ftHE 

310 LET b=b-l 1 RETURN /yPm&AM'ittm 

315 LET c=c-l' RETURN 

320 LET d=d-l ' RETURN / /ÏÆiï&É, 8 % ' flM) 

350 REM incrément J 'âÆËSiM fvfe.-JEl'J 


PRINT RT 


mm 


355 LET a=a+l 
360 LET b=b+l 
365 LET c=c+1 


RETURN 

RETURN 

RETURN 
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370 LET d=d+l : RETURN 

500 REM test collision joueur a 

510 IF RTTR (3jbX>4 THEN LET z=a = LET x=b = GO SUE: 5O00= GO Tü 6512 
515 RETURN 

700 REM test collision joueur b 

705 IF RTTR <c,dX>4 THEN LET z=c = LET x=d = Gü SUB 5000= GO TO 6707 
710 RETURN 

1000 PRINT HT a.,b; INK. 2;"R";AT c,d; INK l;"i=r = RETURN 
1500 REM redéfinition CHR* 

1510 DflTR 60.52.195,195.153>195,50.60 
1520 DRTfi 0,0,7,13,8,12,4,10 
1525 DRTR 0.0,213,100,2,128,54,219 
1530 DRTR 0,0,224,48,144,48,160,16 
1535 DflTR 152,72,216,144,72,72,144,160 
1540 DflTR 136,152,144,16,72,16.224,0 
1545 DflTR 0,108,147,4,160,86,153,0 
1560 DATA 9,13,5,6,8,12,3,0 
1565 DATA 9,27,18,9,25,18,10,9 
1570 DATA 0,0,0,63,255,255,63,0 
1575 DATA 48,48,19,51,239,255,255', 0 
1580 DATA 129,16,2,144,8,34,0,137 
1585 DATA 0,0,0,20,64,6,18,0 
2000 REM Présentation 

2002 CLS = LET 4=2= PRINT AT 21,0; INK 6;"erick caberia Présente tronix" 

2003 PRINT AT 0,0; INK 2; PAPER 7; FLASH l;"MOTO PHOTONIQUE OPERATIONNELLE. 
2005 DIM b$( 2 > = LET b$< 1 >="L" » LET b$(2)="h" 

2010 LET a$=VK" 

2020 PRINT AT 12,15, INK 1 ;a« 

2025 LET 4=4+1= IF 4>3 THEN LET 4=2 

2030 PAUSE 10= PRINT AT 12,17; INK 4;b$<4~l) 

2034 IF INKEY$<>"" THEN RETURN 

2035 GO TO 2025 
5080 REM explosion 

5010 FOR f=l TO 20 

5011 LET 4=4 + 1= IF 4>3 THEN LET 4=2 

5015 PRINT AT z,x, INK 4;b$<4-l) 

5016 BEEP •0123,f = NEXT f 
5020 RETURN 

6000 REM constat d’accident 

6512 PAUSE 120= CLS = PRINT "la moto rou9e a Perdu.,." = PAUSE 0= RUN 
6707 PAUSE 120= CLS = PRINT "la moto bleue a Perdu..." 1 2 3 4 PAUSE 0 : RUN 
7000 REM CHR$ 9raPhi4ues abcdef9hiJkIm 


SPECTRUM 

DESTROYER 

Vous devez récupérer, en un temps limité, les piles 
de combustible nécessaires à la propulsion de votre vaisseau. 

En cas de collision avec les étoiles, la puissance 
de votre bouclier diminue. De bonnes soirées en perspective... 


destroyer 

1 LET hi=0 = GO SUB 5000= REM 86/07.e.c 

2 BORDER 0= PAPER 0= INK 6= CLS 

3 GO SUB 2000= GO SUB 1000= CLS 

4 REM i n i t i a l isutions 





5 LET v=15 : LET choc=6= LET fuel=200 5 LET ln=0 = LET temPs=0 

10 PR INT RT 10.. 12; "NIVEAU 5 ";n : FOR f*l TO 10= BEER . 03, f = H EX T f = GO SUB 4200 
14 CLS 

20 POKE 23692,-1 

21 REM :mm********* 

22 REM test fin de Partie 

23 REM X**************** 

25 IF choc®1 THEN GO TO 400Ô 

27 IF fu.e 1=0 THEN GO TO 4000= REM rapport 

23 REM étoiles aléatoires 

29 REM ttXXXXttXXtt**** 

30 LET tank®INT < RND*< n*10> >+l 

35 IF tank =5 OR tank® 10 THEN PR INT RT 21,RND*31; INK 3.: "B" 

50 PRINT RT 21,RND$31; INK 7; "fi" 

55 PRINT #2 

57 PRINT RT 10/Vi" “ 

53 REM test clavier 

59 REM tttXXXXXtXXXXXttt 

60 LET v=v*KINKEY$="8" HND v<30>-< INKEYS® "5" RND.v>l> 

62 REM :m**##********# 

63 REM test collision étoiles 

64 REM %%%%%%%%%%%%%% 

65 IF RTTR < 11,V>=7 OR RTTR <ll,v+l>=7 THEN FOR f=l TO 12= OUT 254, f= BEER .,02 
,-f = NEXT f* BORDER 0= LET choc=choc-l 

66 REM test collision fuel 

67 IF RTTR <ll,v)*3 OR RTTR (ll,v+l>=3 THEN LET fuel=fuel+ln+5= BEEP .1,10 

70 PRINT RT 0,0; PRPER 1; INK 7; "BOUCLIER = "; choc = PRINT RT 0,24; F’RPER 1; INK 
7; "FUEL = " ; fuel ; RT 0,13; INK 7; PAPER 1 ; "TEMPS = " ; temps 
30 BEEP .003,0= PRINT RT 11,v; INK 2;"CO" 

85 LET fuel*fuel-l 

36 LET temPs=temPs+i 

90 FOR f=l TO ln = NEXT f 
100 GO TO 20 

999 REM %%%%*%%%%%%%%%%%% 

1000 REM Présentation 

1001 REM XXtXtXtttXXtXXXtX 

1002 PRINT RT 0,12; INK 7; PRPER 1; FLASH 1;"MENU" 

1005 PRINT RT 5,0; INK 2; PRPER 7; FLASH 1;"1";; FLRSH 0; PAPER 0; INK 4; 11 vîtes 
se des étoiles lente . ravitaillements frequents et Plus importants" 

1006 PRINT RT 9,0; INK 2; PRPER 7; FLRSH 1;"2 M ;; FLRSH 0; PRPER 0;* INK 4.;" vîtes 

se des étoiles moyenne ravitaillements réguliers" 

1007 PRINT RT 12,0; INK 2; PRPER 7; FLRSH 1; ,, 3 M ;; FLRSH 0; PRPER 0; INK 4.;" vite 

sse des étoiles rapide ravitaillements rares et Peu importants" 

1020 IF INKEY$="1" THEN LET n=l= LET ln=30= RETURN 

1030 IF INKEY$="2" THEN LET n=2= LET ln=20= RETURN 

1040 IF INKEY$="3 U THEN LET n=3= LET ln=10= RETURN 

1050 GÜ TO t020 

1999 REM MMOtt********* 

2000 REM Présentation 

2001 REM XXtttttttXXtXX 
2005 LET i=l 

2008 CLS = LET i=i+l= INK i 

2009 IF i>7 THEN LET i=l 

2010 FOR f*72 TO 79 

2020 POKE 23631,f» LPRINT " DESTROYER " 

2040 NEXT f« 

2045 IF INKEY$="" THEN BEEP .05,-10= GO TO 2008 
2050 CLS = RETURN 

3999 REM tttttXtttttXXXtttt 

4000 REM rapport 

4001 REM 
4010 CLS 

4020 PRINT RT 0,13; INK 2; PAPER 7; FLASH 1 ;"RAPPORT"= GO SUB 4200 

4030 IF choc=l THEN PRINT RT 10,0; "destroyer galactique détruit Par-Perte de bouc 

lier..." 

4040 IF fuel=0 THEN PRINT RT 14,0;"destroyer galactique immobilise Par manque de 
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38 LET q=q+e= PRINT BT 1.29; INK 6; PBPER 2;sc = REM affichage score 

39 LET y»INT <RND*2>+1» IF 9=1 THEN LET r=r-l 

48 IF y=2 THEN LET r-r+1 

41 LET t=t-l 

42 IF r<3 THEN LET r=3 = REM tests bords écran 

43 IF r>19 THEN LET r-19 

44 IF t<0 THEN GO SUB 150 

45 IF q >20 THEN GO TÜ 994 

46 IF q<3 THEN LET q=3 

49 PRINT BT q-l,w;" " ; BT q+l.w;" ";RT q,w; INK 4; i* 

52 PRINT BT r-l.t;" "jBT r+l.t;" "; BT r.t; INK y;" BEER b.20 

53 IF w=t-l BND r=q THEN GO SUB 9997= GO TO 160 

54 IF b=.003 THEN GO TO 57 

55 IF r»q THEN GO SUB 8100 

56 IF w»t BND r=q-l THEN GO SUB 9997* GO TO 160 

57 IF w**t BND r=q+l THEN GO SUB 9997» GO TO 160 

59 REM test clavier 

60 IF INKEV$* S "6" THEN LET e=l » GO TO 38 

65 IF INKEY*-"7" THEN LET e»-l* GO TO 38 

70 IF 1NKEY$="0" THEN GO SUB*100' LET sc=sc-10 

80 GO TO 37 
99 REM User 

100 FOR F S 1 TO 1= PRINT BT q.u+2; INK 4; > PRINT BT q, 

w+2j" " 

105 GO SUB 9995 ; NEXT f 

110 IF q=r THEN GO TO 120 

113 IF t<w THEN RETURN 

115 REM » IF q<>r THEN LET sc=sc-10 

117 RETURN 

119 REM explosion 

120 FOR d=l TO 1» PRINT BT r.t; INK 6;"C" * BEER .1.-30= PRINT RT r.t; INK 6; "EN 
BEEP .1.-30.1= PRINT BT r.t; INK 6; “GP" 5 BEEP .1.-35= PRINT RT r.t;" " = BEEP 

.02.-15= NEXT d = LET sc=sc+10‘ PRINT RT 1.29; INK 3;sc 
130 IF sc=70 THEN GO TO 9000 
135 IF sc=140 THEN GO TO 2100 
140 GO TO 6 

149 REM franchissement 

150 PRINT RT 21.10; INK 2; PBPER 7; FLBSH 1;"barrière franchie"= GO SUB 9935= G 
O SUB 9997= FOR q=0 TO 100= NEXT q 

160 LET V=V-1 

169 REM 9ame over 

170 IF v=0 THEN PRINT BT 10.12; FLBSH 1; PAPER 7; INK 4;"GAME OVER"= FOR C=30 T 
O 1 STEP -1= BEEP .005.0= NEXT C» FOR x*l TO 200= NEXT x= GO TO 2 
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GO TO 6 




615 

POKE 

USR 

"0" 

+3.BIN 

01111110 

499 

REM CHRS 

9raPhiqu.es 

620 

POKE 

USR 

"O" 

+4.BIN 

00011000 

500 

POKE 

IJSR 

n -pu 

.BIN 10000000 1 

625 

POKE 

USR 

"Û"+5.BIN 

00100100 

505 

POKE 

US R 

h -pu 

+1.BIN 

11000000 

630 

POKE 

USR 

"0"+6.BIN 

01000010 

510 

POKE 

USR 

Il -y-ll 

+2.BIN 

11000000 

635 

POKE 

USR 

"O" 

+7.BIN 

11000011 

515 

POKE 

USR 

Il -pli 

+3.BIN 

11100000 

700 

POKE 

USR 

h ^ii 

.BIN 00111100 

520 

POKE 

USR 

Il -pli 

+4.BIN 

01111110 

710 

POKE 

USR 

ng»i 

+1.BIN 

00100100 

525 

POKE 

USR 

Il -pli 

+5.BIN 

01111111 

720 

POKE 

USR 

"E" 

+2.BIN 

00100100 

530 

POKE 

USR 

_ Il *pll 

+6.BIN 

10111100 

725 

POKE 

USR 

ii£H 

+3.BIN 

00100100 

535 

POKE 

USR 

Il -pli 

+7.BIN 

011111000 

7^:0 

POKE 

USR 

il gril 

+4.BIN 

00100100 

540 

REM : 

> 




735 

POKE 

USR 

•i ^ii 

+5.BIN 

00100100 

545 

POKE 

USR 

"IJ" 

■BIN 00000000 

740 

POKE 

USR 

il 

+6.BIN 

00100100 

550 

POKE 

USR 

"IJ" 

+1.BIN 

00000000 

745 

POKE 

IJSR 

il 

+7.BIN 

00100100 

555 

POKE 

USR 

" IJ 1 * 

+2.BIN 

00000000 

750 

REM 





560 

POKE 

USR 

" U" +3. BIN 

00000000 

755 

POKE 

USR 

"D" 

.BIN 00000000 

565 

POKE 

USR 

"U" 

+4.BIN 

11110000 

760 

POKE 

IJSR 

"D" 

+1.BIN 

00111000 

570 

POKE 

IJSR 

"U" 

+5.BIN 

11111111 

765 

POKE 

USR 

"D" 

+2.BIN 

01111100 

575 

POKE 

USR 

"ij" 

+6.BIN 

11110000 

770 

POKE 

IJSR 

"D"+3.BIN 

011000111 

580 

POKE 

USR 

"U" 

+7.BIN 

00000000 

775 

POKE 

USR 

"D"+4 . BIN 

11100111 

600 

POKE 

USR 

" O" 

.BIN 00011000 ! 

780 

POKE 

IJSR 

"C>"+5. BIN 

01111100 

605 

POKE 

USR 

"O" 

+ 1 .BIN 

01111110 

785 

POKE 

USR 

"O" 

+6.BIN 

00111000 

610 

POKE 

USR 

"0"+2.BIN 

11010101 

790 

POKE 

USR 

"D" 

+7.BIN 

00000000 
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795 

REM 




905 

POKE 

USR 

"B" 

+5,BIN 

00001000 

800 

POKE 

USR 

"5“,BIN 00000001 

906 

POKE 

USR 

"B" 

+6,BIN 

00000111 

805 

POKE 

USR 

"S"+l,BIN 

00111010 

i 907 

POKE 

USR 

"B" 

+7,BIN 

00000000 

810 

POKE 

USR 

"5"+2,BIN 

01111100 

910 

REM ï 

ï 




815 

POKE 

USR 

"S" +3,BIN 

11111110 

911 

POKE 

USR 

"N" 

,BIN 11100000 

820 

POKE 

USR 

"S"+4,BIN 

11111110 

912 

POKE 

USR 

“N" 

+1 , BIN 

00011100 

325 

POKE 

USR 

"S"+5 , BIN 

01111100 

913 

POKE 

USR 

"N" 

+2,BIN 

10000010 

830 

POKE 

USR 

“S"+6,BIN 

00111010 

914 

POKE 

USR 

“N" 

+3,BIN 

10000010 

835 

POKE 

USR 

"S"+7,BIN 

00000001 

915 

POKE 

USR 

"N" 

+4,BIN 

10111000 

840 

POKE 

USR 

"M",BIN 0000000 

916 

POKE 

USR 

“N" 

+5,BIN 

00100000 

845 

POKE 

USR 

"M"+l,BIN 

00000000 

917 

POKE 

USR 

"N" 

+6,BIN 

11000000 

850 

POKE 

USR 

"M"+2,BIN 

00000000 

313 

POKE 

USR 

“N" 

+7,BIN 

30000000 

855 

POKE 

USR 

“M"+3, BIN 

00000000 

919 

REM 4P 




360 

POKE 

USR 

"M"+4, BIN 

00000000 

320 

POKE 

USR 

"Q" 

,BIN 00001010 

865 

POKE 

USR 

"M"+5,BIN 

11111111 

921 

POKE 

USR 

"O" 

+1 , BIN 

01010001 

870 

POKE 

USR 

"M“+6,BIN 

00000000 

922 

POKE 

USR 

"O" 

+2,BIN 

00000000 

875 

POKE 

USR 

"M"+7,BIN 

00000000 

923 

POKE 

USR 

"O" 

+3,BIN 

10010100 

880 

POKE 

USR 

"C",BIN 00000000 

924 

POKE 

USR 

"O"+4, BIN 

01000001 

381 

POKE 

USR 

" C" +1, BIH 

00000000 

925 

POKE 

USR 

"O" 

+5,BIN 

00000000 

882 

POKE 

USR 

"C"+2,BIN 

00111100 * 

926 

POKE 

USR 

"Q" 

+6,BIN 

01001000 

383 

POKE 

gsR 

"C" +3,BIN 

01000010 

927- 

POKE 

USR 

n |—|ii 

+7,BIN 

00600010 

834 

POKE 

USR 

"C"+4,BIN 

00111100 

930 

REM 





885 

POKE 

USR 

"ü"+5,BIN 

00000000 

931 

POKE 

USR 

h pu 

,BIN 01010000 

836 

POKE 

USR 

"C"+6,BIN 

00000000 

932 

POKE 

USR 

n pu 

+1,BIN 

00000000 

887 

POKE 

USR 

"C"+7,BIN 

00000000 

933 

POKE 

USR 

" p" 

+2,BIN 

01010100 

889 

REM 




934 

POKE 

USR 

n pu 

+3,BIN 

00000001 

900 

POKE 

USR 

"B",BIN 00000111 

935 

POKE 

USR 

n pu 

+4,BIN 

01000000 

901 

POKE 

USR 

“B"+1,BIN 

0111000 

936 

POKE 

USR 

•ipu 

+5,BIN 

00001010 

902 

POKE 

USR 

“B"+2, BIN 

10000011 

937 

POKE 

USR 

h pii 

+6,BIN 

01000000 

903 

POKE 

USR 

"B"+3,BIN 

10000010 

938 

POKE 

USR 

Mpll 

+7,BIN 

10101000 

904 

POKE 

USR 

"B"+4,BIN 

01110011 

940 

RETURN 





994 GO SUB 9937 

995 FOR f=l TO 1* PR INT FIT 4-1,wj INK 6;“C"= BEEP .1,-30= PR INT RT 4-1, vu INK 6 
; "EN" : BEEP .1,-30.!* PRINT RT 4-1, tu INK 6; "GP" = BEEP .1,35* PR INT RT 4-1, tu" 

11 : GO SUB 9997= NEXT f = GO TO 160 

1000 CLS = PAPER 0= BORDER 0= CLS * INK 7= LET z=.003 

1050 LET vx=.004 1 LET b=0 

1060 PRINT TRB 12; FLRSH 1; INK 2;“ALERTE" 

1065 PRINT RT 7,0; BRIGHT 1; INK 4;"POURREZ VOUS REPOUSSER " 

1070 PRINT RT 9,0; BRIGHT 1; INK 4;"L'ECLAIREUR BARBARE DES XOGS ?" 

1090 IF INKEY«>"" THEN LET b=z = RETURN 

1449 REM bravo! 

1450 FOR f=l TO 30= BEEP .01,f-10< BEEP .02,f= GO TO 1O90 

2000 CLS = PRINT TRB 11; INK 1;“FELICITATIONS !!!"= PRINT RT 7,5;"L J ENNEMI ABAND¬ 
ONNE !"• FOR Z=1 TO 255= OUT 254,Z- NEXT z= PRINT RT 18,7; INK 1; PAPER 7; FLASH 

1 ;"PRESSEZ UNE TOUCHE" ! PRUSE 0* FOR f=l TO 22= PRINT #1= NEXT f= GO TO 1 

2099 REM fuite ennemie 

2100 FOR 1=30 TO 5 STEP -1 1 PRINT RT 20,1; INK 2;t*;“ "= BEEP .03,10= NEXT 1= FO 

R e=20 TO 0 STEP -1= PRINT RT e+1,5;" "; RT e,5; INK 1;«;* BEEP .05,e+20= NEXT 

e= PRINT RT 0,0;" " 

2150 GO TO 2000 

2200 SRVE “XOGS 4“ LINE 1 

2250 STOP 

8100 LET 1=1NT <RND*2>+1 
8200 IF 1=1 THEN RETURN 

8400 FOR f'=l TO 1= PRINT RT r,t-17; INK yX'Wftttttmttttfl "= PRINT RT r,t-17;“ 

"= GO SUB 9995= NEXT f 
8700 IF r=q THEN GG TO 8900 

8900 FOR f=l TO 1= PRINT RT 4,w; INK 6;“C“= BEEP .1,-30= PRINT RT 4,w; INK 6="EN 
"= BEEP . 1,-30. 1= PRINT RT 4, VU INK S) “GP" = BEEP .1,35= PRINT RT 11 = GG SU 

B 9997= NEXT f= GO TO 160 
8910 GO SUB 9991= GO TO 8900 

9010 CLS = FOR c=1 TO 5= FOR h=0 TO 7= PRINT RT 10,11; INK h;"NIVEAU 2 ! ! ! " FGP 
S=1 TO 7= NEXT S= NEXT h« NEXT c RESTORE 3980= FOR z=l TO 12 
9015 RERD a* BEEP .2,a* NEXT z 
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9020 FOR f=l TO 120= BORDER 5> BORDER 1= BORDER 2= BORDER 4= BORDER 3= BORDER *5= 
BORDER 0 : NEXT f 

9980 DflTft 0,0,4,12,11,9,-1,-1,2,11,9,7 

9990 LET B-vx* GO TO 5 

9991 REM tir 

9992 FOR J = 1 TO 3= BEER .01,0= BEER .01,16= NEXT J= RETÜRN 
9995 REM sirene 

9998 FOR j = l TO 5= BEER .82,10= BEER .81,-5= BEER .01,20= HEXT ,i = RETURN 

9997 REM explosion 

9998 FOR -i = l TO 3= BEER .01,-10= BEER .01,-5= BEER .01,-20= HEXT J = RETURN 


SPECTRUM 


BARRAGE 

Des terroristes veulent faire sauter 
le barrage d'Assouan, mettant ainsi en danger des milliers 
de vies humaines. Sauverez-vous, tel Zorro, 
la population, les chats, les chiens grâce à vos Exocet ? 


assoan erick.c 


2 RESTORE 7000= FOR f=USR "c" TO ÜSR "l"+7= REPID user* POKE f,user= HEXT f 

3 BORDER 0= PAPER 0= INK 4= CLS = GO SUB 5000 
10 REM île***#*****###***#*#**## 

15 REM BARRAGE 

20 REM *********************** 

30 REM initial. décors 
48 REM *********************** 

41 LET sc—0 

42 LET cP=@ 

45 BORDER 0= PAPER 0= INK 7= CLS 

50 REM test exocets 

51 IF cP = 18 THEN CLS = PRINT "exocets ePuises!!"= BEEP 1,-18= PAUSE 0= RUN 
60 RESTORE = FOR f-USR "a" TO U3R "a"+15= READ a= POKE f,a= NEXT f 

70 DATA 255,145,145,145,255,129,129,255,BIN 00110001,BIN 01111001,255,BIN 1111 
1110,BIN 11111110,255,BIN 81111001,BIN 00110081 
100 FOR f*4 TO 21= PRINT AT f,6; INK 7; PAPER 2.: "RR" = NEXT f 
118 PRINT AT 21,0; INK 7; PAPER 2; " iT~Frrrrrrrn~rr i ^ » ~rrrrrr « rr F y i= rrr V 
120 FOR t"=20 TO 5 STEP -1 • PRINT AT f,0; INK 5;"HMH" = NEXT f 

130 FOR f=10 TO 26 

131 LET a$=CHR$ <INT CRND*7>+129> 

150 FOR 9=20 TO 17+INT <RND*5> STEP -1 

160 PRINT AT 9,f; PAPER 1; INK 6;a$ = NEXT 9= NEXT f 

165 LET y» INT <RND*13>+10 

166 LET x=20 

167 LET s/=0 

170 FOR f=20 TO 15 STEP -1= PRINT AT f,y;" "= NEXT f 
188 PRINT AT 20,y; INK 4; PAPER 0;"I" 

190 LET y 1=38= LET xl = INT <RND*6>+10 
200 REM *********************** 

205 REM ProSramme Principal 

210 REM *********************** 

211 PRINT AT 0,20;"SCORE =";sc 

212 PRINT AT 2,10;"ESSAI No=";cP 

214 PRINT AT 0,0;"ATTENTION 10" 

215 PRINT AT xl,yl; INK 2;"J "« FOR f=10 TO 0 STEP -.1= PRINT AT 0,0;"ATTENTION 
"jINT f;" "= BEEP .81,10= NEXT f« REM compte a rebours 

220 PRINT AT xl,yl; INK 2;"J " 
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221 LET yl=y1-1 ! IF yl=5 THEN GO TO 1000 

223 IF v-1 THEN LET x=x-l * PRINT RT x,y; INK 4; PRPER 0; " I"RT x+l,y;" 11 

224 IF x-xl HND y=yl+l THEN LET sc=sc+l » LET cP=cP+l= FOR t' = l TO 20= PRINT RT x 

, y .i PAPER 0; INK 6; "K"; RT x,y; PRPER 0; ” " :• RT x,y; INK 6; PRPER 0;"L M = BEER .03, 

-10= NEXT f= RESTORE = GO TO 45= REM explosion 

225 FOR f=28 TO sc STEP -1 

226 IF v=0 THEN IF INKEY*-"0" THEN LET v=l = NEXT f 

227 IF sc=10 THEN CLS = PRINT RT 10,6; "BRfiVO ! mission accomplie": FQR f=l TO 48 
= BEEP . l,f = NEXT f= PRIJSE 20= PROSE 0= RON 

300 GO TO 220 

1000 FOR f=6 TO 8= PRINT RT xl.fi INK 5;= NEXT f 
1005 REM touche ! 

1010 FOR f=xl TO 20= PRINT RT f,9; INK 5; "B"= NEXT f _ 

1020 FOR f=20 TO 5 STEP -1 1 PRINT RT f,8; INK 5; "= PROS 

E 3= BEEP .01.f« NEXT f 

1030 PRINT RT 16,14;"DOMMAGE!"= PROSE 0= RESTORE LET cP=cP + l= GO TO 45 
5000 REM décor desert 

FOR f=*17 TO 20= PRINT RT f,0; INK 

5500 PRINT RT 2,6; INK 7; PRPER li M CO CD"; AT 5,10; PRPER 1; INK 7; "CO" 

5510 PRINT RT 16,10; PRPER 1; INK 2; "EF";RT 17,10; PRPER 6; INK 2;"GH" 

6000 REM Pyramide 

6005 INK 6= LET ax«160« LET aa=40' LET dx=50= LET d*=0 

6007 FOR f=l TO 26 

6010 PLOT ax,ay = DRAW dx,dy 

6020 LET ax=ax+l= LET a.y=ay+l ■ LET dxe=dx-l = LET dy=dy-l 
6030 NEXT f 

6100 LET w$=" a l'ombre des Pyramides un terrible danser menace la vallee du 
ni 1= un dan9ereux SrouPe de terroristes tente de détruire le barrase &' assouan!! ! 

, il faut donc intercepter le missile destructeur 9race a votre exocetOiia.de in Fr¬ 
ance >! ! ! » bonne chance ! ! ! " 

6105 LET w*=w*+" vous disposerez de 10 exocets.. 

6150 BEEP .5,0= FOR f=l TÜ LEN g*-31= PRINT RT 21,0; INK 7; PRPER l;w*<f TO f+31 
BEEP .2,-10 NEXT f= BEEP 1,10= RETURN 


7000 DRTR 0,3,15,63,63,31,6,0 

7005 DRTR 248,254,255,255,254,248,96,0 

7010 DRTR 0,0,0,6,0,4,6,6 

7015 DRTR 0,0,0,0,0,68,198,206 

7020 DRTR 15,31,17,76,12,4,4,6 

7025 DRTR 255,224,224,96,32,32,64,96 


7030 DRTR 0,16,16,16,16,16,56,40 
7035 DRTR 0,0,3,254,3,0,0,0 
7040 DRTR 129,16,2,144,8,34,0,137 
7045 DRTR 0,0,0,20,64,8,18,0 
7500 REM erick.c 


SPECTRUM 

MINE 86 

Vous devez traverser un champ de mines. Mission extrêmement 
délicate dans la mesure où vous ne savez pas 
où vous mettez les pieds. Muni d'un super scanner qui détecte 
et signale les mines, vous sortirez vainqueur 
du premier niveau. Mais qu'en sera-t-il du deuxième et des 
autres ? Chaque étape augmente en difficulté. 


m i ne 

86 



1 

REM erick 

caberia 

86/7 

2 

BORDER 0= 

PRPER 0 

INK 4= CLS 
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3 REM initialisations 
4 : GO SUB 3OO0: GO SUE: 5000 

8 GO SUB 1000 

9 RESTORE 6080= FOR t=l TO 3= RERD fi 

10 LET ITEM=0 : CLS : GO SUB 2000= POKE 23609.10= DIM 4 <800} = DIM w<800) = BORDE 
R 0= PRPER 0= INK 4= CLS 5 LET v=21 = LET h=15 = LET Pointeur»®*- LET o=8 = REM o=ob 
■j ets 

11 REM décor 

12 FOR f=0 TO 21= PRINT FIT f,0; PfiPER 0; INK 2; "fi";AT f,31; PAPER 0; INK 2; "h" 
= NEXT f = FOR f=0 TO 31= PRINT AT l,f; PfiPER 0; INK 2; 11 fi";AT 21, f; PAPER 0; INK 
2" fi“ = NEXT f 

14 PRINT AT 1,15.;" " 

15 LET corn=0 

16 REM tXXXXXXXXXXXXX 

17 REM disposition mines 

18 REM ###**#####** 

20 FOR f=l TO a 

30 LET x=INT <RND*30)+1 
40 LET y=2+INT <RND*17>+1 
50 PRINT RT y,x; INK 0; PfiPER -1; 

60 NEXT f 

61 REM Présentation sisnaleur 

62 IF t=2 THEN FOR f=l TO 7= PRINT AT 13,5; INK 6;"G" = BEEP .2,0= PRINT AT 13, 

5; INK 6;"H"= BEEP .2,0' PRINT AT 13,5; INK 6;"F"= BEEP .2,0= NEXT f 

64 IF t-3 THEN GO SUB 7000 
70 GO SUB 600 

75 REM XXXXXXXXXXXXXX 

76 REM test crash 

77 REM XXXXXXXXXXXXX 

90 IF ATTR <v,h)=o THEN FOR f=l TO 7= PRINT AT v,h; INK 6; n D H = PAUSE 10= PRINT 

AT v,h; INK 6;"C" * BEEP .02,-20= PRINT AT v,h;" "= PAUSE 10= NEXT f= FOR f=l TO 

20= OUT 254,f= BEEP .02,-20= NEXT f= Gü SUB 700= GO SUB 500= GO TO 850 
32 REM XXXXXXXtXXtXXXXXXXX 

93 REM test si9naleur 

94 REM XXXXXXXXXXXXXXX 

35 IF ATTR <v,h>=6 THEN FOR f=l TO 15= BEEP .05,f= OUT 254,f* NEXT f= LET item 
= itern+l 

97 BEEP •01,v = PRINT AT v,h; INK 6;"B" 

101 LET Pointeur»© 

103 REM XXXXtXXXXXXX 

110 REM test scanner 

111 REM XXXXXXXXXXXXX 

115 IF ATTR <v+l,h)*o THEN LET Pointeur=Pointeur+l 

120 IF ATTR (v-l,h)=o THEN LET Pointeur»Pointeur+l 

125 IF ATTR <v,h+l)=o THEN LET Pointeur=Pointeu.r+l 

130 IF ATTR <v,h-l>=o THEN LET Poiriteur=Poir»teu.r+l 

138 IF Pointeur<>0 THEN BEEP .01,-40= BEEP .01,0 

139 IF v=2 AND h=15 THEN PRINT AT 0,7; INK 1; PAPER 7; FLASH 1;" BRAVO!! 

": PAUSE 200= FOR f=l TO 15= OUT 254,f» BEEP .02,f= NEXT f= GO SUB 700= GO SUB 5 
00= GO TO S50 

140 PRINT AT 0,11; PAPER 4; INK 0.= " " ; Pointeur; " = MINES " 

142 GO SUB 900 

145 GO SUB 640 
150 GO TO 65 

493 REM XXXXXXXXXXXXXXXXX 

500 REM ralenti de raction 

501 REM XXXXXXXXXXXXXXXX 

510 FOR f=l Tü corn = REM il faut une variable terminale 

520 PRINT AT q<f),w<f>; INK 2; PAPER 6; "B" = BEEP .03,RND*30= PRINT AT q<f),w<f> 
; PAPER 7;" "= NEXT f= PRINT AT Q<F-l),W<F-l>; INK 2; PAPER 6; FLASH 1 ;“B"= PAUS 
E 0 

530 NEXT f 
540 RETURN 

570 REM XXXXXXXXXXXXXXXXXXX 

572 REM test clavier 

573 REM XXXXXXXXXXXXXXXX 
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600 LET v=v+< INKEY$="6" AND v<20 >-C INKEYÜ^V" AND v>2> = Gü SUE: 900 
610 LET h s h+< INKEVÏ= "3 H AND h<30>-<INKEY$="5" AND h>l> = QU SUE: 900 
615 RETURN 

640 : PAINT AT v,h; PAPER 1; INK 2.;" " 

645 RETIJRN 

699 rem 

700 REM reaP mine 

701 REM ************* 

703 LET h=2 

704 PRINT AT 0.8; INK 1; PAPER 7; FLASH 1 ;"ACTION REPLAY !" 

705 FOR f=2 TO 29 
707 BEEP .01,f-20 

710 IF ATTR <h, f) a o THEN PRINT AT h,f; INK 3;“E" 

720 NEXT f 

725 LET h-h+1 

730 IF h=20 THEN RETURN 

735 GO TO 705 

800 REM next data 

801 NEXT t 

848 REM ************** 

849 REM rapport ,niveau>>> 

850 REM ************** 

851 CLS : FOR F-l TO 10= BEEP .01,F’ NEXT F ! PRINT AT 0,10; INK 2; PAPER 7; FLA 
SH 1;"RAPPORT"* PRINT « PRINT 

852 IF T=1 AND V=2 AND H=20 THEN PRINT “BRAVO! VOUS PASSEZ AU NIVEAU SU-PERIEUR 
"i BEEP .5,10= PAUSE 0= GO TO 800 

854 IF t-2 AND item-1 AND v«2 AND h =*20 THEN PRINT “BRAVO! VOUS AVEZ LE S1GHALEU 
R VOUS PASSEZ AU NIVEAU SUPERIEUR."' PAUSE 0= BEEP .2,10= GO TO 800 

855 IF t=2 AND item-1 THEN PRINT "IL NE SUFFIT PAS D'AVOIR LE SIG-HRLEUR,IL FAU 
T TRAVERSER LE CHA-P DE MINES"= PAUSE 0= BEEP .2,10= GO TO lô 

357 IF T=2 THEN PRINT “DOMMAGE,IL VOUS MANQUE LE SIGNA-LEUR=IL VOUS FAUT RECOMM 
ENCER"= PAUSE 0= BEEP .5,0= GO TO 10 

865 IF T=3 AND ITEM-2 AND V=2 AND H=20 THEN PRINT "BRAVO! LE CHALLENGE EST FINI 
="= PRINT AT 21,7; INK 2;"PRESSEZ UNE TOUCHE"= PAUSE 0= RUN 
870 IF T*3 AND ITEM-1 THEN PRINT "IL VOUS MANQUE UN SIGNALEUR =" 

885 PRINT "VOUS AVEZ EU DE LA CHANCE VOUS NE PERDEZ Q'UN BRAS = RECOMMENCEZ CES 
T UN ORDRE..."= BEEP .5,-20= PAUSE 0= GO TO 10 
890 STOP 

900 IF INKEYîO" " THEN LET com-com+1 = LET q<com)*v= LET w<conO=h = RETURN 
905 RETURN 

999 REM ************* 

1800 REM Présentation 
1001 REM *********** 

1005 LET 1-1 

1008 CLS = LET i = i + l= INK i 

1009 IF i>7 THEN LET i=l 

1010 FOR f-72 TÜ 79 

1020 POKE 23681,f= LPRINT " M i n e s S 6" 

1040 NEXT f» 

1045 IF INKEY$="" THEN BEEP .05,10= GO TO 1008 
1050 RETURN 

1999 REM ************ 

2000 REM Présentation nivea 

2001 REM ************ 

2010 BORDER 0= PAPER 0= INK 7= CLS 
2012 PRINT RT 10,10; INK 6;"Niveau=";t 
2020 PRINT AT 10,5;"F";AT 10,24;"O" 

2025 BEEP .2,-15 

2030 PRINT AT 10,5; "H"; AT 10,24; "H" 

2035 BEEP .2,0 

2040 PRINT AT 10,5;"G";AT 10,24;"F" 

2045 BEEP .2,-15 

2046 IF INKEY$<>"" THEN GO SUB 4205= RETURN 
2050 GO TO 2020 

4200 REM musique 

4205 RESTORE 4210= FOR f=l TO 14= READ m,n= BEEP m,n = NEXT f= RETURN 
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4210 DATA . 15,0,.5,5,. 15,7,.5,8,.15,0,.25,5,.15,7,-25,8,.15, 12, 1,11,.03, 10,.03,8 
,.03,7,.03,5 

5000 REM ************* 

5001 REM redef CHR$ 

5005 REM ************ 

5010 RESTORE 5020= FOR f=USR "a" TO USR “h"+7 

5015 READ a = POKE f,a = NEXT f= RETURN 

5020 DATA 36,36,18,255,36,255,18,36 

5025 DATA 0,16,16,40,214,40,16,16 

5030 DATA 128,17,128,8,33,0,73,32 

5035 DATA 0,0,16,0,40,0,16,0 

5040 DATA 0,0,0,0,0,24,126,255 

5045 DAT A 0,0,6,6,3,16,84,108 

5050 DATA 0,0,192,192,32,16,84,108 

5055 DATA 0,16,56,56,16,16,84,108 

5999 REM ********* 

6000 REM data inombre mi ries 

6001 REM ********* 

6010 DATA 45,60,75 
7000 REM si9naleu.r 3 

7005 FOR f=l TO 7 

7010 PRINT AT 13,5; INK 6;"F";AT 13,24;"G" = BEER .1,0 

7015 PRINT AT 13,5; INK 6;"H";AT 13,24;"H"= BEER .1,0 

7020 PRINT AT 13,5; INK 6; "G"; AT 13,24;"F"= BEER .1,0 

7030 NEXT f« RETURN 
9000 REM texte Présentation 

9010 LET a$ B "SOLDAT,VOUS DEVREZ TRAVERSER TR-ÜIS CHAMPS DE MINES SUCESSIFS , EN 

VOUS AIDANT D'UN SCANNER DE PROXIMITE.AU NIVEAU 2&3 VOUS AU-REZ AUSSI UN 'SIGNA 

LEUR' A RECU-PERER* BONNE CHANCE" 

9100 LET W=LEN fl$ 

9200 FOR -J=l TO U> PRINT INK INT <RND*5+2>;fl$< J TÜ J>; INK 7; "I 
: BEEP .01,CODE fl*CJ>-80« NEXT J= PAUSE 0= RETURN 


= PRINT CHP$ 8; 


SPECTRUM 


CAISM 

Contrairement à beaucoup de ses confrères, ce carnet 
d'adresses souple et complet ne vous laissera pas tomber. 
Vous pouvez effectuer des tris par ordre alphabétique, 
par index, code postal ou ville, faire une recherche 
à partir des deux premières lettres d'une chaîne et 
lister tout ce qui vous est utile sur imprimante. 


C.A INDEXES SEQUENTIELS MULTICLES 

1 GO SUB VAL ,, 2000 u 

2 INK 4= POKE VAL " 23658",y= PÜKE 

VAL "23617",238 = LET Y=<X/2.S> = POKE VAL "23609",100= BORDER 0= PAPER 0= CL. S » 

GO SUB VAL "350"= PRINT AT 2,11; INK 3;"fififffA"; AT 1,12; INK 7;"MENU"; AT 5,1; IN 
K 1; "L -LISTING<AUSCULTATION)";AT 8,1; INK 2; '^-ENREGISTREMENT" ; AT 11,1; INK 3; "3 
-SAVE-LORD"; AT 14,1; INK 4;"4-LISTING REVERSE";AT 17,1; INK 5;"5-RECHERCHECMÜDIF 
.SELECT)";AT 20,.1; INK 7;"6-SUPPRESSIQN"; AT 1,12;"MENU"= PRINT #1; INK 6;"REMPLI 
E fl " ; INT Y;" 7." 


3 

LET L$=INKEY$ = 

LET fl= 

=SGN 

PI 

4 

IF 

L$="4" 

THEN 

GO 

TO 

VAL 

"590 

5 

IF 

L $="i" 

THEN 

GO 

TO 

VAL 

"280 

6 

IF 

L$="2" 

THEN 

GO 

TO 

VAL 

"11" 

7 

IF 

L$="3" 

THEN 

GO 

TO 

VAL 

"400 
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8 IF L$="5" THEN GO TO VflL "930" 

9 IF L$="6" THEN GO -TO VflL "1200" 

10 GO TO VflL "3" 

11 CLS = BEEP .1,-20= PRINT • PRIHT TflB 10j INK fl+A;"COMPTEUR="; x-1 = PRINT HT 
2,10.; ink 3; " rrrrrrro " = GO SUB val "345" 

12 IF <x-l>=I THEN GO TO 2 

13 BEEP .1,-20= INPIJT INK 6; "NOMBRE D'ENREGISTREMENTS LINE r* = GO SUB 2398 
= LET GISTREMENTS ?"; LINE rS= GO SUB 2398= LET S=VflL r$= BEEP .1,-25 

14 IF S>1 THEN GO TO VflL "2" 

15 BEEP .2,10 

17 LET 2=< X+S )-l: LET T=0 
20 FOR F=X TO Z= LET T=T+1 

25 CLS » INK 7= BORDER 4= PRINT AT 0,8.;; INK A+fl; PAPER 7; FLASH 1.;" ENTREE " 

T ; " "= INPUT ; INK 7) PAPER 0) "NOM 8< PRENOM ?" ; UNE r$ = GO SUB VAL "750"= GO 

SUB VflL "2050"= PRINT RT 3,0; PAPER 0;"NOM=";fl$CF>= INPUT INK 7; PAPER O;"INDEX 
?"; LINE r* = GO SUB VAL "2080"= PRINT AT 5,0; PAPER 0;"INDEX=";D$CF>= INPUT INK 
7; PAPER 0;"ADRESSE ?"; LINE r$> GO SUB VflL "2100"= PRINT HT 7,0; PAPER 8;"flDRES 
SE = " ; F ) 

26 INPUT INK 7; PAPER 0;"TELEPHONE ?"; LINE r$= GO SUB VflL "2130"= PRINT AT 9 , 

0; PAPER 0; "TELEPHONE = " ;T$<F ) = INPIJT INK 7; PAPER 0; "VILLE ?"; LINE r« = GO SUB V 

AL "2160"= PRINT AT 11,0; PAPER 0;"VILLE =";V$< F > = INPUT INK 7; PAPER 0;"CODE POS 
TAL ?" ; LINE r$= GO SUB 2398= BORDER 4= LET C<F>=VAL PRINT RT 13,0; INK 7; P 
APER 0;"CODE POSTAL=";CCF ) 

27 BEEP .1,-10= INPUT INK VAL "6"; PAPER 0;"CONFIRMATION ?"; LINE N$= IF Nï="rt 
" OR N$="N" THEN GO TO VAL "25" 

30 NEXT F 

50 PRINT #0; FLASH fl; INK 1; PAPER 7;" FIN D'ENREGISTREMENT "= BEEP . 

1,-25= PAUSE VAL "60"= GO TO B 

280 BEEP .1,-25= INPUT INK 6;"DEBUT DU LISTING ?"; LINE r*= GO SUB 2398= LET 6- 
VAL r$= « INPUT INK 6;"FIN DU LISTING ?"; LINE r$ = GO SUB 2398= LET iï.=VAL r* 

281 IF m>L OR m<l THEN GO TO VAL "280" 

232 IF B>L OR B<A THEN GÜ TO VAL "280" 

285 INPUT INK 6;"IMPRIMANTE ?"; LINE B$ 

290 IF CODE B$-VAL "79" OR CODE B$=VAL "111" THEN GO TO VAL "500" 

300 CLS = BORDER 0 

310 PRINT = FOR F=B TO M = PAUSE VAL "20"= POKE VAL "23692",255= PRINT = PRINT I 
NK fl+fl; "No ";F;TAB 7 j INK 4;A$<F)= BEEP .01,15= IF INKEY$="P" THEN PAUSE 4E4 

313 IF INKEY$-"0" THEN GO TO 2 

314 NEXT F 

318 PRINT #NOT PI; INK A; PAPER 7; FLASH A;" FIN DE LISTE = PRESSEZ UNE TOUCHE" = 
FOR G=A TO VAL "100"= NEXT G= PAUSE 4E4 
340 GO TO A+A 

343 PLOT 0,0= DRAW 0,175= PLOT 0,0= DRAW 255,0= PLOT 0,175= DRAW 255,0= PLOT 25 

5,175= DRAW 0,-175= PLOT 0,155= DRAW 255,0= PLOT 0,140= DRAW 255,0= RETURN 

345 PLOT 0,0= DRAW 0,175= PLOT 0,0= DRAW 255,0= PLOT 0,175= DRAW 255,0= PLOT 25 

5,175= DRAW 0,-175= RETURN 

350 PLOT 0,0* DRAW 0,175= PLOT 0,0= DRAW 255,0= PLOT 0,175= DRAW 255,0= PLOT 25 
5,175= DRAW 0,-175= PLOT 0,150= DRAW 255,0= RETURN 
381 INK 3= PLOT 0,120= DRAW 0,23= PLOT 0,143= DRAW 255,0= PLOT 255,143= DRAW 0, 
-23= PLOT 0,120= DRAW 255,0= RETURN 
400 REM S-L 

405 CLS = PRINT PAPER 1; INK 7; FLASH 1;" MAGNETOPHONE "= PRI 

NT = BEEP .1,-25= PRINT INK fl+A;"l-SAVE FICHIER"= PRINT = PRINT INK 3;"2-LOAD FI 
CHIER"= PRINT #0; INK VAL "6";"0*MENU" 

415 IF INKEY#="1" THEN GO TO VAL "435" 

416 IF INKEŸ*="0" THEN GO TO A+A 

418 IF INKEY$="2" THEN GO TO VflL "420" 

419 GO TO VAL "410" 

420 CLS = GO SUB VflL "470"' GO SUB VflL "490" 

421 CLS = INK 0= BEEP .1,-25' PRINT AT 12,10; INK 1; PAPER 7; FLASH 1;"LÜAD "; F 
$ * LORD F$ DRTR D$< >= LORD F* DATA X$< > = LORD F$ DATA V$<>= LORD F$ DATA T*< >= L 
OAD F$ DATA CC >= LORD F$ DATA A$<) 

425 GO TO 3 . 

435 CLS - GO SUB VflL "470"* GO SUB VAL "495" 

436 CLS = PRINT RT 12,10; PAPER 1; INK 7; FLASH 1;"SAVE ";F$: SAVE F$ DATA D$< > 

: POKE VAL "23736", 181= SAVE F* DATA X$0 = POKE VAL "23736", 181 = SAVE F$ DATA V* 
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0 = POKE VflL "23736"-*181» SAVE F* DATA TÜO» POKE VAL "23736", 181= SAVE F$ DATA 
CO* POKE VAL " 23736'M 81' SAVE F* DATA R$( > 

440 CL S « BORDER a = INK 0- PRINT AT 9,0: PAPER 2.; INK 6; FLASH a; "-Sauvegarde t 
erminee remontez " : PRINT • PRINT INK 6; PAPER 2; FLASH a;"-la bande Pour veri 
fication....." 

441 PRINT AT 14,3; PAPER 1; INK 7; FLASH 1; "vérifié ";F* = VER IFV F$ DATA DiO- 

VER IFY F$ DATA X$<> = VERIFY F* DATA V*O s VERIFï F$ DATA T$0 = VER IF Y F$ DATA CC 
)i VERIFY F$ DATA A$< > = BORDER 0= PAPER 0= CLS = PRINT AT 10,0; INK 7; PAPER n ; 
FLASH a; " SAUVEGARDE CORRECTE '* * BEEP 1,-10= GO TO a 

448 PRINT « INPUT LINE f*> GO TO VAL "452" 

450 PRINT AT 5,0; INK 6; PAPER A+A;F$ 2 PRINT = PRINT INK 7; PAPER A+A;"-CONFIRA 
ATION ?"» INPUT LINE H*> IF CODE H$-VAL "111" THEN RETURN 

451 CO TO VAL "400" 

452 IF LEN f*>VAL "10" THEN GO TO VAL "448" 

453 GO TO VAL "450" 

455 RETIJRN 

460 CLS * PRINT INK 2; FLASH 1j" PROCEDURE EN COURS 

462 PAUSE 0= GO TO VAL "400" 

470 PRINT AT 0,10; INK 6; "MAGNETOPHONE" » PRINT AT 1,9; INK 3; "FfhAWAWP" 
RETURN 

430 BEEP .1,-25= PRINT INK 7; PAPER A+A; FLASH 1 ;"-NOM DU FICHIER A CHARGER ? 

": GO SUB VAL "448"= RETURN 

495 BEEP .1,-25= PRINT INK 7; PAPER A+A; FLASH 1 ;"-NOM DU FICHIER A SAUVEGARDER 


?"= GO SUB VAL "443" 

436 IF F**"" THEN GO TO VAL "435" 

437 RETURN 

499 RETURN 

500 LPRINT "NO";" ";"TITRES";" "; INK A+A;"P.B.S "• LPRINT FOR F=B TO m= 

LPRINT F;TAB 4;A$<F>= NEXT F= GO TO A+A 

550 REM kiki 18/3/84 

590 BEEP .1,-25= INPUT #0; INK 6;"DEBUT LISTING REVERSE "; LINE r$= GO SUB VAL 
"2338"= LET G=VAL r$ 2 LET m=0« IF 0>L OR 0<A THEN GO TO 590 

594 BORDER 0= PAPER 0= CLS *• INK 5» PLOT 0,103= DRAW 255,0= PLOT 0,63= DRAW 255 
.O: PLOT 0,63= DRAW 0,40= PLOT 255,63= DRAW 0,40= BEEP .1,-25= PRINT AT 7,0; INK 

3;" no TITRES" 

595 PRINT AT VAL "20",0; INK VAL "6";"6=+ 7=- 0=MENU R=R. A" 

605 LET P$=INKEY$ 

610 PRINT AT 11,1; INK 3;m; INK 4;" ";A$(m> 

615 IF P$ s 11 6 11 THEN LET m=m+fl= BEEP .01,15 
620 IF P$="7" THEN LET m=m-A= BEEP .01,40 
625 IF P*="0" THEN GO TO VAL "2" 

627 IF P$="r" THEN GÜ TO VAL "700" 

630 IF m<A THEN LET m=A 
635 IF m>L THEN LET m=L 
640 GO TÜ VAL "605" 

700 PAPER 3= BORDER 3= CLS = BEEP .1,15= PRINT AT 1,0; PAPER 0; INK 7;"NÜM= M ; P 

APER 0; INK 7;A*<m)= PRINT AT 3,0; PAPER 0; INK 7; " INDEX = " ; INK 7; PAPER O ; D$=- m > 

= PRINT AT 6,0; INK 7; PAPER 0;"ADRES="; INK 7; PAPER 0;X$Cm>= PRINT AT 10,0; PR 
PER 0; INK 7;"TELEPHONE="; INK 7; PAPER 0;T*<m>' PRINT AT 13,0; PAPER 0; INK 7;" 
VILLE 2 INK 7; PAPER 0;V$<m> = PRINT AT 16,0; PAPER 0; INK 7;"CODE POSTAL"; INK 
7; PAPER 0;C< m > 

704 PRINT #1; INK 2; PAPER 7; FLASH 1;"0=MENU Z-COPY M=MÜDIF.SELEC" 

705 IF INKEY$="0" THEN CLS 2 GO TO VAL "594" 

706 IF INKEY$="z" DR INKEY*«"Z" THEN COPY 

707 IF INKEY$="h." THEN GO TO VAL "7000" 

710 GO TO VAL "705" 

750 IF r$="" THEN GO TO VAL "25" 

751 IF CODE r$=VAL "32" THEN GO TO VflL "25" 

752 RETURN 

989 REM recherche 

390 BEEP .1,-20= INK 2= CLS 2 GO SUB VAL "350"= PRINT AT 1,10; INK VflL "4";"REC 
HERCHE"= LET c=0 
991 PRINT AT 2,10; INK 3; "P OT 

994 PRINT #fl; INK VAL "6";"0=MENU" 

995 PRINT INK 1 ; AT 5,1 ;"1-P ar titrès"; AT 7,1; INK 2 ;" 2-P ar vil le";AT 9 .1 ; INK 3 
;"3-Par code Postal" ; AT 11,1; INK 4; "4-Par index" ;■ AT 13,1; INK 5; "5-Par ordre al. 
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Phabetiflue" 

999 IF INKEY$="1" THEN GO TO VRL "1013" 

1000 IF INKEY$="2" THEN GO TO VflL "5500" 

10R3 IF INKEY$="4" THEN GO TO VflL "6000" 

1005 IF INKEY$="3" THEN GO TO VflL "5800" 

1007 IF INKEY$="0" THEN GO TO VflL "2" 

1008 IF INKEY$="5" THEN GO TO VflL "1800" 

1010 GO TO VflL "999" 

1011 REM RE N 
1013 BEEP .1,-20 

1020 INPUT INK Si "NOM ? "; LINE R$ = CLS = GO SUB VflL "8600" 

1021 LET 1=0= LET Q=1 
1030 FOR E=1 TO L 

1032 IF E=X+1 THEN GO TO VflL "1050" 

1037 IF INKEY$="P" THEN PAUSE 4e4 

1038 IF INKEY*="r" THEN GO TO VflL "1055" 

1040 PRINT AT 21,0= IF R$< TO LEN R*)*fl$<E, TO LEN R*> THEN POKE VflL "23692",255 
. PRINT TAB Xi INK Q;E;"-";TflB 5>fl$<E> = LET 1=1+1= LET Q-Q+l= BEEP .1,20= FRINT 
< GO SUB VflL "8600"= LET c=e = IF LEN r$>2 THEN GO TO VflL "1052" 

1042 IF Q=VflL "7" THEN LET Q*fl • 

1048 NEXT E 

1050 IF 1=0 THEN CLS = PRINT INK 2; PAPER 7; FLASH T.:" INEXISTANT 

"* BEEP 1.5,-30= GO TO VflL "990" 

1052 GO SUB VflL "8700"= GO SUB VAL "3500"= IF i>l THEN GO TO VflL "1055" 

1053 LET M=c 1 GO TO VflL "700" 

1055 GO SUB VflL "8700"= PLOT 0,173= DRAM 255,0= INPUT #0; INK Si "ENTREZ NUMERO " 
} LINE R*> GO SUB 2398= LET u=VflL R$ = IF u.< 1 OR u>l THEN GO TO VflL "1055" 

1056 LET m=u = GO TO VflL "700" 

1200 REM SUR 

1205 CLS = INK 3= GO SUB VflL "350"= PRINT AT 1,9; INK fl+fl;"COMPTEUR=";x-1= LET D 
=0= PRINT AT 5,1; INK 6; "-QUI DESIREZ VOUS SUPPRIMER ?" = BEEP .1,-10= INPUT UNE 
R$= PRINT AT 7,2; INK 2;RS 

1209 PRINT RT 9,1; INK 6; "-CONFIRMATION ? 0>N>"= INPUT LINE U$ = IF IJ$=="N" OR U* 
="n" THEN GO TO fl+fl 

1210 CLS = GO SUB VflL "8600" 

1211 LET v=LEN r*« LET b=dr-v 

1212 FOR n=a TO b= LET r$=r$+" "= NEXT n 
1220 LET Q=A = LET I=NOT PI 

1225 FOR E=1 TO L= LET Q=Q+fl 

1226 IF E=X+fl THEN GO TO VflL "1500" 

1240 IF R$=fl$(E > THEN GO TO VflL "1513"= LET I = I+fi= LET Q=Q+fl 
1242 IF Q=VflL "7" THEN LET Q=fl 
1245 NEXT E 

1500 IF I=NOT PI THEN GÜ TO VflL "1050" 

1513 LET fl$< E >=" " = LET T$Œ>=. LET XWE)-""' LET V$(E)=" " = LET D$Œ>="" = LET C 

= 0 

1514 LET KO=E+fl= IF R$(E+lX> ,,n THEN GO SUB VflL "4500" 

1516 CLS * PRINT AT 0,0; INK ?i PAPER 1;" SUPRESSION EFFECTUEE "= BEEP 

.5,-30= PAUSE VflL "40"= GO TO fl 
1800 REM alPha 

1805 BEEP .1,-30= INPUT INK 6 i "IMPRIMANTE ? "; LINE R* 

1809 CLS = GO SUB VflL "8600" 

1810 FOR f=l TO x= FOR P=2 TO x 
1815 LET wM*«P-l) 

1820 IF a$<P ><=a$<P-l> THEN GO TO 1840 

1830 GO TO 1860 

1840 LET aï< P-l)=a$<P > = 

1850 LET à$<P)=rn$ 

1851 LET c$=v$<P-l)= LET v$( P-l )=v$<P )'• LET v$< P >=c$ 

1852 LET c$=x$<P-l)= LET x$<P-l>=x*<P)= LET x$<P )=c$ 

1853 LET c$=d$(P-l)= LET d*(P-l)=d$<P)= LET d$CP>=c$ 

1854 LET cP=c<P-l )= LET c(P-l)=c<P)= LET c< P >=cP 

1855 LET cMW(P-l)' LET t*< P-l >=t$< P > = LET t$< P >=c$ 

1860 NEXT P= NEXT f 

1862 CLS = BORDER 5 

1863 LET K0=2= GO SUB VflL "4500" 
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1870 FOR P=A TO x-1 

1875 IF R$="o" THEN LPRINT P;TAB 4;a$<P)' NEXT P = GO TO 2 

1876 PAUSE VAL H 20" 

1380 PR INT * POKE VAL "23692% 255= PR INT INK 3;P;TAB 3.; INK 2;a$<P>' BEE P ,.01,15 
1881 IF INKEY$ S "P" THEN PAUSE 4e4 
1382 IF INKEY*- ,, 0 M THEN GO TO a 
1890 NEXT P 

1895 PRINT #1; INK 1; PAPER 7; FLASH 1;" FIN DE LISTE=PRESSEZ UNE TOUCHE" : PAUSE 

4E4 : GO TO a 
2080 FOR E=A TO L 

2010 IF R$< E,1 >=" " THEN LET X=E« GO TO VAL "2021" 

2020 NEXT E 

2021 FOR E-NOT PI TO 7- POKE USR "A"+E,0' NEXT E 

2022 POKE USR "A"..255 
2030 RETURN 

2049 REM 

2050 IF LEN r$< =DR THEN LET A$CF>*r$' GQ SUB VAL "4000"' RETURN 

2060 BEEP .5,-25' PRINT AT 0,0; INK A+A; PAPER 7; FLASH A.; BRIGHT A;" Pas Plu 
s de ";DR; " caractères " « INPUT INK 7; PAPER 2; "REFAITES L'ENTREE"; LINE r$ = G 
Ü SUB VAL "2050" 

2062 IF LEN r$>DR THEN GO TO 2050 

2063 RETURN 

2080 IF LEN r$<=GT THEN LET D3KF > GO SUB VAL "4000"' RETURN 

2085 BEEP .5,-25' PRINT AT 0,0; INK A+A; PAPER 7; FLASH R; BRIGHT 1;" Pas Plu. 

s de ";GT;" caractères M « INPUT INK 7; PAPER A+A;"REFAITES L’ENTREE"; LINE r* 
« GO SUB VAL "2080" 

2090 GO TO VAL "2080" 

2100 IF LEN r$<=DR THEN LET X$<F>=r*' GO SUB VAL "4000"' RETURN 
2110 BEEP .5,-25' PRINT AT 0,0; INK 2; PAPER 7; FLASH A; BRIGHT A;" Pas Plus 
de "; DR;" caractères "« INPUT INK 7; PAPER 2;"REFAITES L'ENTREE"; LINE r*' GO 
SUB VAL "2100" 

2115 GO TO VAL "2100" 

2130 IF LEN r$<=QU THEN LET T$<F>=r$' GO SUB VAL "4000"= RETURN 

2135 BEEP .5,-25' PRINT AT 0,0; INK A+A; PAPER 7; FLASH A; BRIGHT 1;" Pas plu. 

s de ";QW;" caractères "« INPUT INK 7; PAPER A+A;"REFAITES L'ENTREE"; LINE r$ = 

GO SUB VAL "2130" 

2150 GO TO VAL "2130" 

2160 IF LEN r$<=QE THEN LET V«<F )=r$> GO SUB VAL "4O00"' RETURN 

2165 BEEP .1,-25' PRINT AT 0,0; INK fl+A; PAPER 7; FLASH 1; BRIGHT 1;" Pas Plu 

s de "; DE;" caractères "« INPUT INK 7; PAPER 2;;"REFAITES L’ENTREE"; LINE r$ = 

IF LEN r $< =QE THEN LET V$(F )=r$' GO SUB VAL "4000"' RETURN 

2170 GO TO VAL "2165" 

2398 LET 19=LEN r* = IF r*»"" THEN LET rï="0"= RETURN 

2399 BEEP .1,-30' FOR k*l TO 19 

2401 IF CODE r%(. k TO 19 >>57 OR CODE r$( k TO 19 ><48 THEN GO TO 2410= RETURN 

2402 NEXT k 

2403 RETURN 

2410 PAPER 0= BORDER 0' CLS ' INK 7' GO SUB VAL "350" ' BORDER 0= PAPER 0 = BEEP .. 
1,-25' PRINT AT 5,1; INK 2; FLASH l;r$ = LET W$=" JE N'ACCEPTE Q'UNE ENTREE NU 
MERIQUE ! REFAITES L'ENTREE !... 1,5 BEER -6,-20= GO SUB VAL 

"3700"' PAUSE 50' FOR F=1 TO LEN Wï-VAL "20"' PRINT AT 1,5; INK 6; PAPER 2;W*<F 
TH F+20>' BEEP .08,-20= NEXT F' GO SUB VAL "3700"' INPUT INK 2;"REFAITES L'ENTE 
EE LINE R$ = CLS = GO TO 2398 

3500 INK 4- GO SUB VAL "345"' PRINT #1; INK 6;"R=R.A 0=MbNU" 

3510 IF INKEY$="r" THEN RETURN 
3515 IF INKEY$-"0" THEN GO TO a+a 
3520 GO TO VAL "3510" 

3700 PRINT AT 1,1; INK 2j PAPER 7; FLASH 1;" ENTREE INCORRECTE " : RET 

URN 

4000 REM écran 

4010 PRINT AT 0,0;" " : PRINT AT 0,8; INK 2; PHPER 

7; FLASH 1;" ENTREE ";T;" "« RETURN 

4500 FOR p=KO TO x' LET a$< P-l >=a$< P >' LET x*C P-l >=:=<$< P >’■ LET d**.P-l >=d$< P > = LET 
v $<p-î >=v$CP >: LET c<P-l >=C<P >' LET t*<P-l >=t*C P >' NEXT P= LET a*< x :•=""= LET x$ 

<x>-""' LET d$< x >=" " ' LET * LET c<x>=0 : LET t$(x>="" 

4501 RETURN 
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5506 BEEP .1,-20= INPUT #0; INK 6J "ENTREZ VILLE LINE K$ 

5510 LET v=LEN k$ = LET b=QW-v 

5515 FOR n=A TO b = LET K$=K$+" " = NEXT ïï 

5516 CLS 

5518 LET Q=R= LET I=NÜT PI ! GO SUB VRL "8600" 

5550 FOR E=A TO L 

5555 IF E-X+fl THEN GO TO VRL "1050" 

5558 IF q»7 THEN LET q*a 

5560 PR INT RT 21,N0T PI * POKE VRL "23692", 255= IF K$=V*Œ> THEN PR INT TRB 1= INK 

QjEj”- m J**<E>' PRINT ' GO SUB VRL "6600"= BEEP .1,20= LET i = i + l LET q=q + ?.= LET 

c°e 

5565 IF INKEY$="P" THEN PRIJSE 4E4 

5566 IF INKEY$=V" THEN GO TO VRL "1055" 

5570 NEXT E 

5810 LET Q*fl : LET i*NOT PI» BEEP .1,-25= INPUT #0; INK 6; "ENTREZ CODE POSTAL "; 

LINE r$ = GO SUB VRL "2398"* LET J=VAL r$ = CLS * GO SUB VRL "8600" 

5820 FOR E*fl TO L 

5825 IF E=X+A THEN GO TO VRL "1050" 

5832 IF INKEY$="P" THEN PAUSE 4E4 

5833 IF INKEY*-"r" THEN GO TO VRL "1055" 

5840 POKE VRL "23692",255» PRINT RT 21,0= IF J=CXE> THEN PRINT TRB 1 ; INK Q;E;"~ 
".rfl^CE)» PRINT * GO SUB VRL "8600"*’6EEP .1,20= LET i = i + 1 = LET q=q+a= LET c*e 

5342 IF Q=7 THEN LET Q=A 
5845 NEXT E 

6000 BEEP .1,-15= REM IND 
6010 LET Q=A : LET 1=0 

6015 INPUT #0; INK 6; "ENTREZ INDEX "> LINE R$ = CLS GO SUB VRL. "8600" 

6020 FOR E*fl TO L 

6025 IF E=X+R THEN GO TO VRL "1050" 

6045 POKE VRL "23692",255 

6055 POKE VRL "23692", 255* PRINT RT 21,0= IF R*( TÜ LEN R$ >=[>$< E, TO LEN R$> THE 
N POKE VRL "23692",255= PRINT TRB 1; INK G;E;;R$<E>= PRINT * GO SUB VRL "8600 
"= BEEP .1,20= LET I*I+A« LET q=q+a» LET c=s 

6056 IF INKEY*="P" THEN PAUSE 4E4 

6057 IF INKEY$="r" THEN GO TO VRL "1055" 

6060 IF Q=7 THEN LET Q=R 

6065 NEXT E 

7000 BORDER 0= PAPER 0= CLS * INK 1» BEEP .1,-15= REM MS 

7010 PRINT RT 1,5; INK 2; "MODIFICATION POUR»";AT 3,0; INK 7; PAPER 0; ;fi$< iv. >; A 

T 5,1; FLASH 0; PAPER 0; INK 1;"1-TITRES"; RT 7,1; INK 2;"2-INDEX"; RT 9,1; INK 3; 
"3-fiDRESSE"; AT 11,1; INK 4;"4-VILLE"; RT 13,1; INK 5;"5-CÜDE POSTAL"; RT 15,1; T NK 

6;"6-TELEPHONE"= PRINT #0; INK 6;"0=MODE RECH" 

7011 GO SUB VRL "343" 

7028 IF INKEYf*"1" THEN GO TO VRL "7500" 

7025 IF INKEY$="2" THEN GO TO VRL "7550" 

7030 IF INKEY$="3" THEN GO TO VRL "7600" 

7035 IF INKEY$="4" THEN GO TO VRL "7650" 

7037 IF INKEY$="5" THEN GO TO VRL "7700" 

7040 IF INKEY$="0" THEN GO TO VRL "990" 

7045 IF INKEY$="6" THEN GO TO VRL "8000" 

7050 GO TO VRL "7020" 

7510 CLS = BEEP .1,-5= PRINT INK 2; PAPER 7; FLASH 1;" MODIFICATION TURFS 

n 

7515 INPUT INK 5;"ENTREZ TITRE "; LINE R$= GO SUB VRL "8500"= LET F=M= GO SUB VA 
L "2050"= LET M«F 
7520 LET A$< M >=R$ 

7525 CLS * PRINT INK 7; PAPER 1;" MODIFICATION EFFECTUEE "= PAUSE VAL "3 
0"= BEEP .5,-5= GO TO VRL "700" 

7550 CLS = BEEP .1,-5= PRINT FLASH 1; INK A+fl; PAPER 7;" MODIFICATION INDFN 

" » PRINT RT 5,0; INK 2; "-POUR»"; INK 7;A$=:>.>= GO SUB VAL ”331" 

7555 INPUT INK 5;"ENTREZ INDEX "; LINE R$= LET F=M= GO SUB VAL "2080"= LET M=F 
7560 LËT D*<pO»R$ 

7570 GO TO VRL "7525" 

7605 CLS = BEEP .1,-5= PRINT INK 2; PAPER 7; FLASH 1;." MODIFICATION ADRESSE 

"« PRINT RT 5,0; INK 2;"-P0UR' M ; INK 7;A$<rn> = GO SUB VAL "381" 

76IR INPUT INK 5; "ENTREZ ADRESSE LINE R* = LET F=M = GO SUB VAL "2100"= LET M=F 
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7630 LET X$< m >=R$; GO TO VAL "7525" 

7655 CLS = BEER .1,-5= PRINT INK 2; PAPER 7; FLASH 1 ;" MODIFICATION VILLE 

" = PR INT AT 5,0; INK 2; "-POUR = 1 11 ; INK 7;A5Km> = GO SUB VAL "381" 

7670 INPUT INK 5; "ENTREZ VILLE "; LINE R$ = LET F=M= GO SUE: VAL. "2160"= LET M==F 
7675 LET m >=R$ = GO TO VAL "7525" 

7700 REM R CP 

7710 CLS * BEEP .1,-5' PRINT INK 2; PAPER 7; FLASH 1;" MODIFICATION CODE PGSÏ 
AL "= PRINT AT 5,0; INK 2; "-POUR*"; INK 7;A$<m> = GÜ SUB VAL "381" 

7715 INPUT INK 5;"ENTREZ CODE POSTAL "; LINE r$ = GÜ SUB VAL "2398"= LET F=VAI r$ 
7720 LET C<m >=R : GO TO VAL "7525" 

8000 REM TE 

8010 CLS = BEEP .1,-5= PRINT INK 2; PAPER 7; FLASH 1;" MODIFICATION TELEPHÜN 
E "= PRINT AT 5,0; INK 2;"-POUR:"; INK 7;A$<m> = GO SUB VAL "381"= INPUT INK 
5;"ENTREZ TELEPHONE LINE R$ = LET F=M= GO SUB VAL "2130"= LET M==F = LET T*<m >=R 
$= GO TO VAL "7525" 

8500 IF CODE r*=32 OR r$="" THEN GO TO VAL "7515" 

8510 RETURN 

8600 PRINT AT 0,0; INK 2; PAPER 7; FLASH a; " PROCEDURE EN COURS " • PET 

URN 

8700 PRINT AT 0,0;" * "= RETURN 

9000 LET A=SGN PI = DIM T$(L,QN )= DIM C( L > = DIM V«L,QE)= DIM A#< L..• DR > = DIM X$< L ■ 
DR): DIM D$<L,GT) = BORDER 0= PAPER'0= INK 4= POKE VAL "23659",2= GO TO VAL "J" 
9010 LET L=VAL "250"= LET QW=VAL "15"= LET QE=VAL "15"= LET DR®VAL "25"= LET GT- 
VAL "8"= GO TO VAL "9000" 

9999 REM erick caberia 3/84 


SPECTRUM 


RADS 

Un inquiétant nuage plane au-dessus de vos plantations. 

Attention aux radiations qui s'en dégagent 
et tombent de façon aléatoire sur vos champs de salades ! 
Arrêtez-les grâce à votre base mobile... 


RADS 


1 BORDER 0= PAPER 0= INK 4= CLS = GÜ SUB 5000 

2 GO SUB 2000= LET hs=0 = REM redef CHR* 

8 REM MM**t%*****mmtt* 

9 REM i nitial isaion 

10 rem 

11 LET v=10= DIM *<11 >= DIM b*<4>= LET sc=0 = LET vie*3 

15 LET b$< 1 >="C" = LET b$(2>®"D"* LET b$< 3 >="E" = LET b*< 4 >="F" 

22 FOR f=lü TO 20= PRINT AT 15,f; INK 4;"R"= PRINT AT 4,f; INK 2;"h" = NEXT t 

24 REM de-part ennemie 

25 FOR f=l TO 11= LET a<f>=4 = NEXT f 

26 FOR f-0 TO 31= PRINT AT 0,f; INK l;"i"= NEXT f= LET z=INT <RND*4H1 

27 PRINT AT 0,0; PAPER 1 ; INK 7;"score =";sc; AT 0,25; PAPER 1 ; INK 7;"vies=";vi 
e;AT 0,13; PAPER 1; INK 7;"hi9sc=";hs 

29 REM hasard ennemie & test collisions 

30 LET b=INT <RND*11)+1= LET a< b >=**< b H1 = IF a(b>=14 THEN LET vie=vie-l = FOR f 
=1 TO 10= BEEP .01,-10= OUT 254,f* NEXT f= BORDER 0= GO SUB 1000= GO SUB 4205= C 
LS = GO TO 20 

32 REM :m****#:m:m*:m* 

33 REM Print ennemies 

34 REM :m***:M#***:m***:* 

35 PRINT AT aCb>,9+b; INK 6;b$<z) 

39 REM #2^*****#******##* 
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40 REM test clavier 

41 REM :m**:m#****2K##*#* 

50 LET v-v+C INKEY*="8" AND v<19)-< INKEVÎ="5" AND v>9> 

59 REM im:*****#*#*****#* 

60 REM Print base 

61 REM mm***##***##* 

70 PRINT AT 14,v; INK 3;" G " 

75 REM ********************** 

76 REM tir rayon 

77 REM ********************* 

82 IF INKEY*= H 0" THEN FOR f«13 TO 5 STEP -1= PRINT AT f,v+l; INK 5;"B"= NEXT f 
- FOR f=13 TO 5 STEP -1* PRINT AT f,v+l;" ": BEEP .01,f+10= NEXT f* NEXT f : LET 
a<v-3)*4 = LET sc^sc+l 1 PRINT AT 0,0; PAPER 1; INK 7) "score : 11 :• sc 
200 GO TO 28 

997 REM **************** 

998 REM tests vie & inc score 

999 REM *************** 

1000 IF vie=0 THEN PRINT AT 21,11) FLASH 1) INK 2) PAPER 7) "GAME OVER" = GO SUE: 4 
300 ! GO SUB 3000= PAUSE 0' CLS * GO TO 10 
1010 RETURN 


PAPER 


GAME OVER" : GO SUE: 4 


2000 REM CHR* 

2010 RESTORE 2100= FOR x=USR "a" TO 

2020 READ user- POKE x,user 

2030 NEXT x- RETURN 

2100 DATA 0,0,0,102,255,181,255,173 

2150 DATA 68,72,36,36,68,66,36,68 

2200 DATA 34,20,8,40,50,28,16,8 


TOUSR "9"+7 


2250 DATA 84,68,84,68,84,68,84,68 
2300 DATA 80,4,32,6,84,0,36,16 
2350 DATA 16,135,40,145,56,169,16,145 
2400 DATA 0,36,66,90,60,24,24,126 
3800= IF sc>hs THEN LET hs=sc 


3005 RETURN 

4000 REM musique yesterday 

4005 RESTORE 4005= FOR f«l TO 29= READ m,n= BEEP m,n= NEXT f= RETURN 

4010 DATA .25,7,.25,5,1.5,5,.25,9,.25,11,.25,13,.25,14,.25,16,.25,17,.25,16,.15, 

14,1.5,14,.25,14,.24,14,.25,12,-25,10,.25,9,.25,7 

4020 DATA .5,10,.25,9,.75,9,.5,7,.5,5,.25,9,.75,7,.5,2,.5,5,.25,9,1.25,9 
4200 REM musique 

4205 RESTORE 4210= FOR f=l TO 14= READ m,n= BEEP m,n = NEXT f= RETURN 

4210 DATA .15,0,.5,5,.15,7,.5,6,.15,0,.25,5,.15,7,.25,8,.15,12,1,11,.03,16,.03,8 

,.03,7,.03,5 

4300 REM musique requiem 

4305 RESTORE 4310= FOR f=l TO 10= READ m,n = BEEP m,n= NEXT f= RETURN 
4310 DATA .9,0,.9,0,.1,0,.9,0,.9,3,.4,2,.9,2,.9,0,■4,~1,.9,0 
5000 REM Présentation 

5010 LET a$="eric caberia & tilt vous Présente rads,vous devrez a l'aide de vot¬ 
re base mobile et de votre rayon laser,emPecher des radiations mortelles d’attei 
ndre la terre...les contrôles sont 5,8,0..." 

5100 LET w=LEN a$ 

5150 FOR J = 1 TO w= PRINT INK INT CRND*5+2>) a$< J TO J INK 7) H I")= PRINT CHR* 8) 

= BEEP .01,CODE a«J>-80= NEXT j= GO SUB 4000= CLS = FOR f=l TO 20= BEEP .82,20 = 
NEXT f» RETURN 


SPECTRUM 


SPECTDRAW 

Un logiciel de création graphique qui propose huit couleurs 
et la possibilité de réaliser des dessins, 
de remplir les surfaces et de déplacer les figures. 

Très utile pour les futurs Rembrandt! 


1 GO SIJB 8000= LET PaPer=0« GO SUB 9000= LET border=0= LET ink=7= BORDER 0= P 
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fiPER 0 = INK 7* CLS 

2 DRAW 255*0= DRAW 0*175= DRAW -255*0= DRAW 0*-175 

3 OVER 1 

10 DIM z(500> 

15 LET xl=0 = LET y 1=0 
20 LET x s 100 = LET y = 100 
30 LET P=1 
99 REM test clavier 
100 PAPER 1= INK ink = GO SUB 2000 
102 LET y=y+< INKEY$="u" )-< INKEYÏ* 1 ^" ) 

105 LET yl=yl+< INKEY$="7" >-( INKEY$ =I, 6 U > 

110 LET x=x+< INKEY$="d n )-( INKEY**'‘a" > 

111 LET x1=x1+(INKEY$="8 M >-<INKEY*=" 5 “ > 

120 PLOT x*y = DRAW xl*yl 

121 IF INKEY$="s" THEN SAVE a*SCREEN* = REM saueSarde ima9e 

122 IF INKEY$="f" THEN GO SUB 7000= POKE 59293*PaPer = RANDÛMIZE U3R 59136 

123 IF INKEY#="b" THEN GO SUB 4000 

124 IF INKEY$="e" THEN GO SUB 3000 

125 IF INKEY$= ,MI THEN GO TÛ 125 

126 IF CODE INKEY*=13 THEN GO SUB 210 
130 PLOT x*y = DRAW xl*yl 

200 GO TO 100 

210 LET z<P>=x = LET z<P + l>=y LET z<P+2>=xl = LET z<P+3>=yl= LET P=P+4 
220 LET x=x+xl= LET y=y+yl 
230 LET xl=0 1 LET y 1=0 
240 RETIJRN 

300 FOR f-1 TÜ 500 STEP 4 

310 PLOT z<f)*z<f+l> = DRAW z< f+2 >* z< f+3 ) 

320 NEXT f 

1999 REM tests bord d*écran 

2000 IF x>=254 THEN LET x=254= RETURN 
2005 IF x+xl>=254 THEN LET xl=xl-l* RETURN 

2010 IF x<=l THEN LET x=l- RETURN 

2011 IF x+xl<=l THEN LET xl=xl+l« RETURN 

2015 IF y>=174 THEN LET y=174« RETURN 

2016 IF y+y1>=174 THEN LET yl=yl-l= RETURN 

2020 IF y<=l THEN LET y=l« RETURN 

2021 IF y+y1<=1 THEN LET yl»yl+l' RETURN 
2030 RETURN 

3000 REM encre 
3010 LET irik=0 

3014 IF INKEY$=“5 M THEN LET ink=ink-l= BEEP .5*10= IF ink<0 THEN LET ink=0 

3015 IF INKEYt- 1 ^ 11 THEN LET ink=ink+l= BEEP .5*10= IF ink>7 THEN LET ink =7 
3020 PRINT AT 21*1 J INK ink i FLASH 0> "l” 

3035 IF CODE INKEY*=13 THEN PRINT AT 21*1* PAPER PaPer*" "= RETURN 

3040 GO TO 3014 

4Ô00 REM couleur border 

4010 IF INKEYS="5" THEN LET border=border-l= BEEP .05*10= IF border<0 THEN LET b 
order=0 

4020 IF INKEYS^’S" THEN LET border=border+l= BEEP .05*10= IF border>7 THEN LET b 
order=7 

4025 BORDER border 

4030 IF CODE INKEY$=13 THEN RETURN 

4035 GO TO 4010 

6000 REM fill 

6010 DATA 58*125* 92* 95* 58*126* 92* 87 * 58*157 * 231 * 50*143* 92* 75* 66* 66* 205* 84* 231 * 75* 
4*120*254*174*210*49*231*197*213 

6020 DATA 205*206*34*209*193*197*213*205*213*45*209*193*60*61*254*1*194)17*231*6 
6* 75*205*34*231 * 75* 5*120* 254*1 * 218 

6030 DATA 83*231*197*213*205*206*34*209*193*197*213*205*213*45*289*193*68*61*254 
*1*194*50*231*201*75*197*213*205*229*34*209*193*12*121*254*255*210*120*231*197*2 
13*205*206*34*209*193*197*213*205*213 

6040 DATA 45* 209*193*60*61* 254*1 * 194* 85* 231*75*197* 213*205*229* 34*209*193*13*121 
* 254*1 * 218*156*231 

6050 DATA 197*213*205*206*34*209*193*197*213*205*213*45*209*193*60*61*254*1*194* 
121*231*201*58 
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7000 REM PaPier 

7001 IF PaPer<0 THEN LET PaPer=0 

7010 IF INKEY$-"5" THEN LET PaPer=PaPer-l= BEER .1,10: jf p. 3 .p e r<0 THEN LET PaPer 
—0 

7015 PRINT RT 21,1; INK PaPer; 

7020 IF INKEY$="8" THEN LET PaPer=PaPer+l= BEER .1,10= IF PaPer>7 THEN LET PaPer 
=7 

7030 IF CODE INKEY$=13 THEN PRINT RT 21,1.: RRRER Paper.:" " : RËTURN 
7040 GO TO 7001 

B000 INPIJT "NOM DU DESSIN?";fl$' CLS « RETURN 
9000 RESTORE 6000' REM remPlissa9e 

9010 FOR f=53136 TO 59293 » RERD data' POKE f,data* NEXT f= RETURN 

9999 REM e.c 29/6/86 

10000 REM merci a vachha & rumsey 


SPECTRUM 


PENDU 

Un programme bien réalisé qui permet de jouer 
contre l'ordinateur ou un adversaire humain. 

La variable « MOT » définit en ligne 5 le nombre 
de mots contenus dans le dictionnaire intégré. C'est en 
l'incrémentant qu'il est possible de l'étendre. 


pendu. 

2 GG sue 1000 

4 REM MENU 

5 FOR F=1 TO 20: BEEP .1,F> NEXT F = LET MOT-IIS' POKE 23658,8= BORDER 0= PRPL 
R 0: INK 4= CLS 

lu RRINT "voulez vous jouer a deux ou contre moi..." 

20 PRINT RT 16,1: FLRSH 1; INK 2J RRRER 7.;"1"= PRINT RT 16,3.: "a deux" 

22 PRINT RT 18,1; FLRSH 1; INK 2; RRRER 7;"2"= PRINT RT 18,3;"contre moi" 

24 PRINT RT 20,1; FLASH 1; INK 2; PAPER 7;"3"= PRINT AT 20,3;"arrêter" 

29 REM TEST CLAVIER 

30 IF INKEY$="1" THEN BEEP .1,20= GO Tü 50 

40 IF INKEY*="2" THEN BEEP .1,20= GO Tü 700 

42 IF INKEY$="3" THEN NEW 

43 GO T O 30 

50 CLS : INPUT "introduisez un mot sans le lais-ser voir Par votre Partenaire. 
..";d* : IF LEN D$>10 THEN BEEP 1,-10- GO TO 10 


166 PRINT AT t,h;b$ 

170 FOR i=l TO LEN d$ 

180 IF b$< >dï<i ) THEN GO TÜ 190 
181. LET e$< i >=d$< i ) 

185 BEEP .07,10= PRINT AT y,y+i+i;b* 
136 LET v=h 

187 IF e$=d$ THEN GÜ TO 598 
190 NEXT i 

195 IF vOh THEN FOR F=1 TO 15= BEEP .04,F= NEXT F= GO SUB 300+h 
200 GO TO 161 

300 PRINT RT y+h/r,t; INK 2; "mmm" 

301 GO TO 500 

302 PRINT RT y+h/r,t; INK 2;"P M ;AT y+h/r,t+4; INK 6; PAPER 3; "F." 

303 GG TO 500 

308 PRINT AT y+h/r,t; INK 2j"I"jAT y+h/r,t+3; INK 5; "B. BT 


53 LET t=0= LET h=t= LET r=2= LET y=10 
58 DIM e$< LEN d$ ) 

100 FOR i=l TO LEN d$ 

110 PRINT AT y,y+i+i; INK 1; FLASH 1;'V 
120 NEXT i 

161 LET v=-y 

162 LET b$=INKEY$ 

165 IF b$="" THEN GO TO 162 
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309 GO TO 500 

310 PRINT RT y+hxr,t; INK 2 ;"I"jAT y+h/r,t+2; INK 7;" d k" 

311 GG TÜ 500 

316 PRINT RT y+h/r,t; INK 2;"I " 

317 GG TÜ 500 

319 PR INT INK 2) PRPER 7; FLRSH 1 ; "SOLUTION = ";d$' FOR F=1 TO 60= OU T 254.. F : NE 
XT F : BORDER 0 

322 PR INT RT 21,6.: INK 6.: "PRESSEZ UNE TOUCHE " ; FOR F=1 TO 40= BEER . 07, F = NE XI 
F 

323 PAUSE 0= FOR F=1 TO 50' NEXT F * PAUSE 0 
325 CLS « GO TO 10 

SOO LET h-h+r 
510. RETURN 

599 REM SUCCES 

600 PRINT RT 21,0;"VOUS AVEZ GAGNE" ! FOR F=1 TO 20= DUT 254,F- BEER .03,F- NEXT 
F= PRIJSE 0 1 PAUSE 0' GO TÜ 1 

699 REM DICTIONNAIRE 

700 RESTORE * FOR F=1 TO INT <RND#M0T>+1 

705 RERD Z$: NEXT F ! LET D*»Z$» CLS * GO TÜ 53 

710 DATA "MAIN"."MIME","MARS","AOUT","GANT","PRIX","CHAT","OEUF","VEUX","LIVRE" 
,"BAGUE","POIRE","SINGE","DEVOIR","TROQUER","ECRAN","FELIN","SIROP","QUATRE","80 
UCLE","MANGER","BOUTON","MONTRE","RIDEAU","LAVABO","ORDINATEUR" 

720 DATA "CHEMISE","ROBINET","SECRETS","BOUCHON","MUSIQUE","TOUCHER","MEMOIRE", 
"LESSIVE","OBSTACLE","CADAVRE","ENFONCER","BLANCHIR", "EROTIQUE","CHIFFRER","CERT 
IFIER"ARME","6LINDE","MISSILE","FLEUR" 

730 DATA "LUMIERE","OBSCURITE","PYRAMIDE","RABOTER","TABOURET","MATELAS","CARNE 
T","APARTHEID","CLAVIER","SANG","MORT","GROUPE","ETHNIE","MENSUEL","CANAL","DECO 
DEUR","ANTENNE" 

740 DATA "IMPRIMANTE","CIEL","ESPOIR","FRERES","RUE","DEMAIN","MEILLEUR","CHAN8 
ON","AMOUR","PAIX","PHARAON","LECTEUR","JOUEUR","MAITRISE","HUMANITE" 

750 DATA "LIBERTE","ECARTELER","AMNISTIE","TAPIS","BOUTON","SONNER","FORTUNE"," 
RHYTME","MOUCHER","SIFFLER","GUITARE","FREQUENCE","SQUALE","MORSURE","VAMPIRE"," 
FUSIL","PLANCHE","LIGNE","SONORITE","SACHET" 

760 DATA "COMBAT","MATRICE","VITAMINE","BANDIT","TORCHE", "PLAQUER","CLEF","POT" 
, "LAIT", "VACHE", "BUFFLE", "TIGRE", "LION", "CRABE", "CHATTE", "PARC;", "CHASSER", "MIl.1T 
AIRE","CRETIN","TEMPS" 

1000 REM PRESENTATION 

1004 CLS = PRINT AT 0,0; INK 3;"E.C & TILT PRESENTE ; "; AT 21,0; INK 6;"PRESSEZ UN 
E TOUCHE" 

1005 FOR F=60 TO 1 STEP -1= POKE 23606,F : PRINT AT 10,15; PAPER 1,-INK 6;"PENDU" 

: BEER .02,F-25 : NEXT F : BORDER 0 

1010 IF INKEY$< >"" THEN FOR F=1 TO 50= OUT 254, F ! BEER -03, F* NEXT F : FOR F=1 rn 
22 : PRIHT #1= BEEP .03,F- NEXT F« RETIJRH 
1020 GO TO 1010 
9999 REM E.C 


THOMSON 


DESCRIPTION 

Testez votre mémoire visuelle : un « suspect » 
apparaît cinq secondes à l'écran. A vous d'établir ensuite un 
portrait-robot, grâce aux « signes 
particuliers»: chapeau, cicatrice, calvitie, nœud pap... 
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C I ) =A , B , C , D , E , F , G , H : NEXT 
100 ' * ** X * XXXXXXXXXXXXXXXX ** XX**XXXXXXX 
110 ‘X DONNEES GRAPHIQUES * 

120 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
130 DATA63,64,169,32,3,12,0,3,240,12,242 
13,229,21,234,62,2,3,3,3,3,3,3,3,0,0,12 
8,128,192,192,192,192,0,0,0,0,0,1,3,6,28 
,24,48,96,192,128,0,0,1,7,1,3,3,3,3,1 
140 DATA128,224,192,192,224,224,224,192 
2,21,42,80,160,64,32,81,64,168,84,10,5,7 

4.180.72.28.28.28.30.15.7.3.3.56.56.56.1 
20,240,224,192,192 

150 DATA33,34,81,32,16,42,21,2,32,212,42 
,4,8,84,168,64,3,3,3,3,7.6,6,3,192,192,1 
92,192,224,96,96,192,0,0,0,0,35,31,15,30 
,0,0,0 ; 0,196,252,192,128,0,0,31,31,31,31 

160 DATAO,0,128,192,224,248,128,128,31,2 
8 , 28 , 8 , U , O , O , 0 , 8 , 8 , 8 , 3 , , 3 , 0 , 0 , 126 j 128 , 1 

28,128,128,128,0,0 

170 DATAO,0,0,0,2,1,5,11,0,0,0,2,153,85, 
42,175,0,0,0,168,85,218,183,222,0,0,0,16 
0,92,182,170,85,13,2,13,6,5,13,10,5,251, 

106.95.240.192.128.3.127 

180 DATA170,87,223,32,0,0,0,0,187,101,25 

5.12.7.3.193.253.128.192.64.160.192.64.1 
60,192,5,10,7,3,5,6,5,3,0,4,30,126,30,4, 
0,0,2,12,16,32,64,128,130,124 

190 DATAO,32,120,126,120,32,0,0,160,192, 
32,192,96,192,160,192,6,3,2,7,1,1,1,1,0, 
0,0,1,7,1,0,0,0,36,126,255,129,255,126,2 
4,0,0,0,128,224,128,0,0 

200 DATA160,192,224,192,128,128,128,128, 
128,64,96,16,12,7,2,2,0,0,0,32,80,143,0, 
0,1,2,28,16,224,64,64,64 

210 DATAO,0,0,1,1,1,3,3,0,0,0,128,128,12 
8,192,192,7,24,32,64,64,128,128,128,255, 
0,0.0,0,0,0,4,224,24,4,2,2,1,0,0,0,0,0,0 
,0,0,128,128 

220 DATA3,5,9,9,9,5,7,5,0,28,62,28,0,0,0 
,0,4,8,16,32,64,128,132,124,0,112,248,11 
2,0,0,0,0,128,224,144,144,160,160,192,12 
8,5,14,4,4,4,0,0,0,0,128,128,64,64,32,32 
, 16 

230 DATAO,0,0,255,60,0,0,0,1,2,2,4,4,8,8 
,16,16,8,4,3,2,2,2,2,0,0,33,222,0,0,0,0, 
32,64,192,64,64,64,64,64,0,1,7,15,31,31, 

63.63.15.255.256.255.255.255.255.255 
240 DATAI,131,131,131,199,199,199,239,22 
4,255,255,255,255,255,255,255,0,0,128,22 

4.240.240.248.248.63.63.63.63.63.127 
250 DATA127,127,255,255,255,239,239,239, 
231,231,255,239,215,239,255,239,215,239, 

255.255.189.222.1.235.255.255 

260 DATA255,255,255,251,251,251,243,243, 
248,252,252,252,252,254,254,254,231,129, 
153,48,48,153,129,231,231,227,229,233,23 
9,239,239,239 

270 DD*=CHR*<8)+CHR*( 8) +CHR*(8)+CHR* ( 8 ) + 
CHR*C10):A$(0)=GR$C0 >+GR$(1 ) +DDÎ+GR*(4 > + 
G R* ( 5 ) ° A* ( 1 ) =GR*( 2 ) +6R* ( 3 ) +DD*+GR* ( 6 ) +GR 
% C 7 ) 

280 A* C 2) =GR*(8)+GR*(9 > +DD*+GR$ C12 > +GR* ( 
13):A*(3 > =GR* <10)+GR*Cil)+DD$+GR*(14)+GR 
$(15) 


290 A* ( 4 > =GR* ( 16 ) +GR* (17) +DD*+GR* ( 20 ) + " 

":A$(5)=GR*(18)+GR*(19)+DD$+GR*(21)+GR*( 
22) 

300 T*( 0)=GR*(23)+GR*< 24)+GR*(25)+GR*(26 
)+" " : T $ ( 1 ) = GR* ( 2 7 ) -I- GR $ ( 28 ) +GR* ( 29 ) +GR$ ( 
30)+GR*C31> 

310 T* C 2)=GR$ ( 32) +" '' +GR* ( 36) : T* ( 3) =GR 
*(37)+CHR*(27)+CIHR*(65)+GR* (38)+GR*(39)+ 
GR $ C 40 ) +CHR $ C 27 > +CHR* ( 64 ) +GR* C 41.) 

320 T*C4>=" "+GR*<42)+GR*(43)+GR$(44):T* 
( 5) = " "+GR$( 45) +CHR*( 127)+GR$(46) 

330 T*< 4 )=" "+GR*(42)+GR*(43)+GR*(44)+ " 

n 

340 TT*(0)=" "+6R*(45)+CHR*(127)+GR*(46) 
+ " ": TT*(1)=" "+CHR*C27)+CHR*(64)+GR*(47 
)+GR*(48)+GR*(49)+GR*(50) 

■350 TT*(2) =GR*( 51 ) + " ,, +GR*(55) : TT*(3)= 

GR*(56)+GR*C57)+CHR*(27)+CHR*(65)+GR*<58 
)+CHR*<27)+CHR*(64)+GR*(59) + » " 

360 TT*C4)~" "+GR*(60)+GR*(61)+GR*(62)+" 
" : m ( o ) =gr* c 34 ) : m c 1 :> =gr* c 53 > 

370 Y*(0)—GR$(33)+" "+GR *(35): Y*(1)=GR*( 
52)+" "+GR$<64) 

380 P*—GR* ( 63 ) +CHR* ( 127 ) +GR* (. 64 ) +GR* C 66 ) 
+GR*<66)+CHR*(127 >+GR*(67 > 

390 P*ü O)=GR*(68)+GR* C69)+CHR*(127)+CHR$ 
(127)+GR*(71>+GR*(72)+GR*(73): P*(1)=GR*( 
68)+GR*(69)+CHR*(127)+CHR*(127)+GR*(74)+ 
GR*(72)+GR* C 73) 

400 P*(2)=GR*(68)+GR*C69)+CHR*(127)+GR*( 
70)+GR*(71)+GR*C72)+GR*(73): P*C3)=GR$(68 
)+GR*(69)+CHR*(127)+GR*C 70 >+GR* C74)+GR*C 
72)+GR*<73) 

410 P*(4)-GR*(68)+GR* < 69)+CHR*(127)+QR*( 
75)+CHR*C127)+GR*(72)+GR*(73 >: P* C5)=GR*( 
68)+GR*(69)+CHR*C127)+GR*(70)+CHR*(127)+ 
GR*(72)+GR*C73) 

420 DI*(0)="REGARDEZ BIEN, LA PERSONNE Q 
UI VA": DI*(1)="APPARAITRE EN HAUT DE L'E 
CRAN, 

430 DI*(2)“"LORSQUE VOUS APPUYEREZ SUR U 
NE ":DI *(3)="TOUCHE. ELLE N'Y.RESTERA 
QUE CINQ" 

440 DI*<4)="SECONDES. APRES IL FAUDRA, F 
AIRE DI*(5)="SON PORTRAIT ROBOT, LE PL 
US " 

450 D.I*(6)="FIDELEMENT POSSIBLE. 

n 

460 ' 

470 '* AFFICHAGE DE L'ECRAN 1 * 

480 '********************************** 
490 CLS:BOXF(11,0)-(28,9)"?",0,7:BOX C88, 
0)-C231,79>,0:ATTRBO,1 

500 FORI=OT04:LOCATEO,1+1*2!COLORI:PRINT 
"DESCRIPTION":L0CATE29,1 +1*2: PRINT"DESCR 
IPTION"5 î NEXT 

510 ATTRBO,0:COLOR0,7:FORI=1T07:COCI)=7: 
NEXT 

520 FORI=0706:L0CATE3,11 +1*2: PRINTDI *(I) 

; :NEXT:a*=ïnkey$ 

530 A*=INKEY*:A=RND:IFA*=""THEN530ELSECD 
LORO,14 

540 T=CINT(RND):CT=CINT C3*RND):N=CINT(RN 
D):Y=CINT C RND):CY=2* CCINT(RND*3)):P=CINT 
(RND*5):CP=CINT(RND*5) 


► 
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ji o it 


550 A“CINT(RND#5):CA=CINTCRND#S>:H=CINT< 
R ND# 12) ï J=CINTC RND) : YV=Y: NN=N: AA"A: PP“P: 
HH=H:JJ=J:Q=15: QQ-3 : CAA=CA:CTT=CT :CYY=CY 

:cpp=cp; sc=o 

560 BOXFC12,1)-(27,8>" ”,7,7: CDLOR ,7: ï Fï 

=0T l-IE N G OSU B600E L.S E G DSUB620 

570 GQSUB640:GQSUBS60:G0SUB700:G0SUB680: 

GQSUB720 

580 FORI=0T05000:NEXT:G0T0790 

590 ' ###:##AFFÏCHAGE DE LA TETE 0####### 

600 C0L0R0,00(1):F0RI=0TO4:LOCATEQ,I+QQ- 

i: printtscI):NEXT:return 

610 O***::**AFFICHAGE DE LA TETE 1######:+: 

620 COLORCTT,C0<1): FORI=0T04:LOCATEQ,I+Q 

0-1 :PRINTTT*<I>:NEXT:RETURN 

630 '#######AFFÏCHAGE DES YEUX######### 

640 COLORC Y Y , CDC 2 > : L0CATEQ+1, QQ+1 : PR INTY- 

$CYY):RETURN 

660 '#######AFFICHAGE DU NEZ########### 
660 COLQRO,C0(3):LOCATEQ+2,QQ+1!PRINTN$( 
NN):RETURN 

670 ' ######AFF ICHAGE DE L'ARME###:*"##### 
680 COLORCAA,CO C4 >:ATTRB1,1:LÜCATEQ+7,QQ 
-1-3 : PR ï NT A# C AA ) : ATTRBO, 0 : RETURN 
690 '#######AFFICHAGE DU PULL########## 
700 CDLORCPP , CO < 5 > : LOCATEQ-J. , QQ+4 : PR IN TP 
$ î LOCATEQ-1 , QQ+5 : PR I NTF‘$ C PP ) 5 : RETURN 
710 '#####AFFICHAGE DE L'HEURE######### 
720 COLORO,CO16):LOCATEQ+6,QQ-1:PRINTHHj 
:COLOR,C0<7>: IFJJ=OTHENPRINT"AM "ELSEPRI 
NT"PM " 

730 RETURN 

740 ' #####EFFACEI V 1ENT DE LA FENETRE##### 
760 BOXF(0,10)-139,24)" ",0,6:RETURN 
760 ' ï*:################################# 
770 '# CREATION DU PORTRAIT ROBOT # 
730 ' ##########:*:####################### 
790 G0SUB760: BOXF(11,0)-< 28,9)"?",0,7:BO 
X (. 88,0) — <231,79) , 0 

800 C0L0R3,4:ATTRB1,1 :L0CATE10,15:PRINT" 
1":L0CATE27,15:PRINT"2":COLORO,7:ATTRBO, 
o:CTT=0 

810 Q=8:QQ=18: G0SUB600:Q=26:G0SUB620 
820 A$=INPUTÎCl):IFA$="1"THENTT=0:CTT=0: 
GÜT0870ELSEIFA*-" 2'" THENTT=1ELSE820 
830 G0SUB750:Q=S:F0RCTT=0T03:G0SUB620:Q» 

q+s:next 

840 ATTRB1,1 :C0L0R3,4:L0CATE6,16:PRINT"1 

":L0CATE14,1S:PRINT"2":LQCATE22,15:PRINT 
// - m \ ** 

850 L0CATE30,15:PRINT'M":ATTRBO,0 

860 AS-INPUTSCl): IFA$=" 1 "0RA$="2"ÜRA^="3 

"OR A$="4"THENCTT-VALC A* >-1ELSES60 / 

870 B0XFC12,l)-<27,8>" " , 7,7: Q=15: QQ=3: I 
FTT=OTHENGOSUBGOOELSEGOSUB620 
880 G0SUB750:Q“8:QQ-17: YY=0:CYY=0:COLÜR, 
7:G0SUB640:Q=26:YY=1:Q0SUB640:ATTRB1,1 
890 COLOR3,4:L0CATE10,15:PRINT"1":LOCATE 
27,15:PRINT"2":COLORO,7:ATTRBO,0 
900 A$=INPUT*(1):IFA$="1"THENYY=OELSEIFA 
2"THENYY=1ELSE900 

910 GÜSUB750;Q=5:COLOR, 7\ F0RCYY=0T06STEP 
2:G0SUB64O:Q=Q+8:NEXT 

920 ATTRB1,1 :C0L0R3,4:L0CATE6,15:PRINT"1 
":LOCATE14,15:PRINT"2":L0CATE22,15:PRINT 


930 LÜCATE30,15: PRINT"4":ATTRBO,0 

940 A$=INPUT$U) : IFA$=" 1 "QRA$="2"ÜRA$="3 

"0RA*="4"THENCYY=(VALCA$) -1)#2ELSE940 

950 Q=15:QQ=3:COLOR,7:G0SUB640 

960 G0SUB750:Q=8:QQ=17:NN=0:COLOR,7 : GÜSU 

8660:Q=26:NN=1:Q0SUB660:ATTRB1,1 

970 CQLQR3,4 :LOCATE10,15:PRINT"1":LOCATE 

27,15: PRINT"2":COLORO,7:ATTRBO,0 

980 A$=INPUT$C1):IFA$="1"THENNN-OELSEIFA 

$=''2"THENNN= 1ELSE980 

990 Q"15:QQ=3:COLOR,7:G0SUB660 

1000 GOSUB750:COLOR,7:Q=7:QQ=12:CPP-0: FO 

RPP-0TÜ2:G0SUB700:Q=Q+10:NEXT 

1010 QQ=18:Q=7:FORPF-3T05:GÜSUB700:Q-Q+l 

o:next 

1020 ATTRB1, 1 :C0L0R3,4:L0CATE8,14:PRINT" 
1":LOCATE18,14:PRINT"2":LOCATE28,14:PRIN 

1030 LOCATES,20:PRINT"4":L0CATE18,20:PRI 
NT"5":L0CATE28,20:PRINT"6":ATTRBO,0 
1040 A$=INPUT$< 1 ) : IFA*="1"0RA*="2"QRA*=" 
3"ÜRA$="4"ORA$="5"ORA$="6"THENPP= CVAL(A* 
)-1)ELSE1040 

1050 G0SUB750:COLOR,7:Q=7:QQ=12:F0RCPP=0 
T02:00SU6700:Q-Q+10:NEXT 
1060 QQ=18:Q=7:F0RCPP=3T05:G0SUB700:Q=Q+ 
10:NEXT 

1070 ATTRB1,1:C0L0R3,4:L0CATE8,14:PRINT" 
1":L0CATE18i14:PRINT"2":L0CATE28,14:PRIN 

T" 3" 

1080 LOCATE©,20:PRINT"4":LOCATE18,20:PRI 
NT"5" : LQCATE28,20:PRINT"6":ATTRBO,0 
1090 A$=INPUT$<1):IFA*=" 1"0RA*="2"0RA*=" 
3"0RA$="4"0RA$="5"0RA$="6"THENCPP=CVAL(A 
*) -1 )ELSE1040 

1100 Q=15:QQ=3:COLOR,7:G0SUB700 

1110 GOSUB750: H $="":L OC A TES,16: PRIN T"A Q 

UELLE HEURE : "; :C0L0R7,4:PRINTSPCC2) 

1120 A$== INPUT % C 1 > : L=LEN ( H$ ) : W=ASC ( A$ ) : ï F 
W=13THEN1150ELSEIFW“8ANDL>0THENH$=LEFT$C 
H$,L—1):A$="": GOTO1140 
1130 IFW<480RW>570RL=2THEN1120 
1140 C0L0R7,4:H*=H$+A$:L0CATE22,16:PRINT 
SPC(2):L0CATE22,16:PRINTHH:GOTO1120 
1150 HH=VAL(H$):IFHH>12THEN1120ELSEG0SUB 
750 

1160 COLORO,6:LÜCATE10,16:PRINT"AM":LÜCA 
TE2S,16:PRINT"PM":C0L0R3,4:ATTRB1,1 
1170 LOCATE10,14:PRINT"1":L0CATE28,14:PR 
INT"2":ATTRBO,0 

1180 A$=INPUT$(1):IFA$="1"0RA$="2"THENJJ 
= <VAL < A$ >-1)ELSE1180 
1190 Q—15:Q Q=3: GO SU B 720 

1200 GÜSUB750:QQ-16:Q=-2:CÂA=0:FORAA-OTO 
5:G0SUB68O:Q=Q+5:NEXT 

1210 ATTRB1,l:C0L0R3,4:L0CATE6,15:PRINT" 
1":LOCATE11,15:PRINT"2":LOCATE16,15:PRÏN 

y " ; “ 

1220 L0CATE21,15:PRINT'M":L0CATE26,15:PR 
INT"5":LOCATES1,15:PRINT"6":ATTRBO,0 
1230 A$=INPUT$<: 1 ) : IFA$=" 1"0RA$="2"QRA*=" 
3"ORA$="4"QRA$="5"ORA$="6"THENAA=(VAL(A$ 
)-l)ELSE1230 

1240 GOSUB750;QQ=16:Q=-2:FORCAA=0T06:GOS 
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UB680 » Q=Q+5: NE X T 

1250 ATTRB1,1:C0LQR3,4:LOCATES,15:PRI NT” 
1”:LOCATE11,15:PRINT"2”:LOCATE16,15:PRIN 

■|" it // 

1260 L0CATE21 , 15 : PR I NT " 4 " : L0C-ATE26,15: PR 
INT”5”:L0CATE31,15:PRINT”6":ATTRBO , 0 
1270 A$=ÏNFUT$C 1 :> : 1FA$=”1”QRA$="2”0RA$=” 
3”ÜRA$=”4”ORAÏ5”0RA$=”6”THENCAA=<VALC A 
*)-l)ELSE1230 

1280 Q=!5: CiQ=3« COLOR , 7 : G05UE'68U 
1290 GÜSUB750: IFCY=CYY THENSC=1ELSECO(2 > 

J. 300 1FCA=CAA THENSC=SC+1 ELSECO( 4 ) =8 

:i 31 o :i: ft=ït thensc=sc+ i elseco c 1 > =8 

1320 IFT«0THENSC=SC+1ELSEIFCT-CTT THENSC 
=SC+1 

1330 IFY~YY THENSC=8C+1ELSEIFCO C 2> =81HEN 

COC 2 > = 1OELSECOC 2)=8 

1340 IFN=NN THENSC=SC+1ELSECO C 3)=8 

1350 ÏFA=AA THENSC=SC+1ELSEIFCO< 4) =8THEN 


CO(4 > = 1OELSECO(4 > =8 

1360 IFP=PP THENSC=SC+1ELSECOC5)=8 

1370 IFCP=CPP THENSC=SC+1ELSEIFCO C5> =8ïH 

ENCO C 5 ) ■= 1 OELSECO C 5 > =3 

1380 IFH=HH THENSC=SC+1ELSECOC6)=8 

1390 XFJ=JJ THENSC=SC+1ELSECO(7)=8 

1400 SC—20'* «: sc/il): attrbo , 1 : locates , i s : p 

RINT”VOTRE SCORE : ”5 SC5”/ 20”:ATTRBO,0 
1410 COLORS,6:LOCATEO,22:PRINT”APPUYEZ S 
UR UNE TOUCHE POUR LA SOLUTION”; 

1420 A$=ïNPUT$C1):AA=A:CAA=CA:CTT=CT: NN= 

n:yy=y:cyy=cy:pp=p:CPP=CP:hh=h:jj=j:q=is 
: 00=3 

1430 LOCATEO,22: PRINTSPCC40>S :COLOR.7:1F 
T=0THE N G0S UB600 E LSEGOSUB 620 
1440 GDSUB640:G0SUB660:G0SUB700:G0SUB720 
•: G0SUB680: COLORO , 6 

1450 LÔCATE2,22! PRINT”APPUYEZ SUR UNE *10 
UCME POUR REJOUER”:A$=INPUT*Cl):GÜT0490 
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LE METALLURGISTE 

Vous devez d'abord traverser une usine sur 
des poutres roulantes. Un seul pied dans le vide est permis. 
Ensuite, il faut aller quérir divers 
objets, le plus vite possible, en évitant les écraseurs. 


1 n 
20 
30 
40 
50 
60 
70 




LE METALLURGISTE 
F a i p a r C h ris t o p h e CO U AS N A R D 


^ MC 

80 CLE AR500,&HDFFF, 70: CONSOLEO,24,0,0 
90 FORI=0TD69:READA,B,C,D,E,F,6,H:DEFGR* 
U > =A. B, C, D, E, F i G, H: NEXT: 010 
100 ' T T T T T T T T T T T T T T T T T T T * T T T * T * T T T * * * * T 
110 J * DONNEES GRAPHIQUE * 

120 '********************************** 
130 DATAI,3,15,255,15,15,7,7,128,192,240 
,255,192,64,224,192,255,231,195,129,129, 
195,231,255,265,195,165,153,153,165,195, 
255,0,120,125,127,63,127,125,120 
140 DATAO,0,84,254,255,254,84,0,24,60,10 
2,219,219,102,60,24,24,52,100,200,128,0, 
0,0,0,0,0,0,0,0,0,0,1,1,3,63.51,39,47,11 
1,0,0,128,192,192,224,240,240 
150 DATAO,0,0,0,0,0,0, 0 ,0,0,0,0,0,0,0,3, 
1,1,3,7,15,63,255,255,189,90,60,255,255, 
60,90 , j. 89, 128 , 128,192,224,240,252,255,25 
5 ,0,0, 0 ,0,0,0, 0 , 192,0,0,0,0,0,0,0,0 
160 DATA 7,6,14,12,28,24,62,63,224,96,48 
,48,24,24,62,63,7,15,31,63,127,127,255,2 

55 . 255 . 255 . 255 . 255 . 255 . 225 . 225 . 225 . 225.2 

55 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255.2 


55,255,255,255,255 

170 DATA224,240 ; 248,252,254,254,255,255, 
243,248,31,15,15,31,248,248,0,7,255,248, 
248,255,7,0,0,0,0,0,0,24,36,36,24,60,102 
,195,195,102,60,24,0,0,0,255,255,127,45, 
41 

180 DATA36,126,255,255,247,247,126,60,16 
,0,8,32,16,74,32,36,1,0,9,34,10,170,54,8 
5,144,1,68,18,72,210,69,36,129,36,128,68 
,193,8,97,146,4,34,1,9,66,14,17,8,4,210, 
0,42,164,16,163,74 

190 DATA17,34,33,73,38,36,66,193,132,69, 
50,10,132,20,34,137,1,200,0,162,32,201,4 
8,169,37,1,80,18,4,16,2,84,69,34,36,148, 
72,18,36,32,16,73,42,20,8,100,2,130 
200 DATA162,68,36,66,66,36,24,16,193,33, 
33,154,4,168,4,66,75,134,36,68,8,68,22,1 
,144,50,64,128,161,192,144,164,145,0,72, 
62,127,255,255,255,34,144,9,75,7,135,175 
, 255 

210 DATAO,173,187,178,88,125,252,253,180 
,101,42,170,83,36,191,255,165,0,75,26,69 
,84,203,255,147,79,159,95,63,127,127,285 
,154,225,249,250,252,254,255,255,12,45 
220 DATA78,192,235,56,230,21 
230 DATA28,62,127,127,126,60,56,24,57,12 
5,252,124,56,24,8,0,239,239,206,68,0,0,0 
,0,56,124,254,124,56,48,32,0,56,124,254, 
254,126,60,60,56 


213 











240 DATA24,8,0,0,0,2,2,6,255, 195,129,128 
,128,129,195,255,1,1,1,1,1,57,41,57,254, 
134,2,0,0,2,134,254,24,48,32,0,0,128,192 
, 192 

250 DAT A14,30,63,127,127,126,62,28,0,0,3 
2,112,249,251,251,112,0,0,0,136,140,222, 
222,140,1,1,19,59,127,251,249,112,224,22 
4,240,248,248,248,240,224 
260 DATA16,15,14,13,13,12,11,10,10,9,8,8 
,7,7,6,6,5,5,4,4,4,3,3,3,2.2,2,1,1,1,0,0 
270 A$=" "+CHRS(27)+CHRS(64) +GR$(0>+GRS( 

1) + " ":BS=CHRS(10)+CHRS(8)+CHRS (8)+CHRS( 
8)+CHRS C8):C$=" "+CHRSC27)+CHRSC68)+GRS C 
9>+GR$<10>+" ":DS=" "+GR$( 13)+GRS( 19) + " 

n 

280 ES=GR$ C4 > +GRS( 5):F$=GRS <6)+GRS ( 6)+GR 
S < 7):GS=GRS(25)+GRS C26):H$=GRS ( 27)+CHRS C ' 
10)+CHRS C8 >+GRS C30): IS=GRS (28)+GRS (29) 
290 JS=GR$(12)+GR*C13>+GRS(14)+GRS(15)+G 
RS ( 16) : K'S=GRS< 20 ) +GRS ( 23 > +GRS C 23 ) +GRS C 23 
) +GRS <: 24 > : L$=GR$ C 2 ) +GRS ( 3) 

300 FORI^OTOIO:MS=MS+LS:NEXT:OS=M$+MS:MS 
=M$+" ":NS=SPACE$( 15)+MS 
310 AAS=CHRS C 27)+CHRS(64)+GRS CO)+GRS ( 1 ) : 
BBS=CHRSC10)+CHRSC8)+CHRSC8):CCS=CHRS <27 
)+CHRSC68)+GRS(9)+GRSC10):DDS*GRS(18 >+GR 
S ( 19 ) 

320 CCS <: 1 ) =GRS C 55 ) +GRS < 56 ) +GRS C 57 ) +GRS < 5 
8)+GRS(59) 

330 CCSC2>“GRSC60)+GRS(61)+GRSC62)+GRS(6 
3)+GRS(64> 

340 CCS(3)=GRS(65)+GRS(66)+GRS(67)+GRS(6 
8)+GRS<69) 

350 • 

360 ’* ECRAN PRINCIPAL * 

370 '********************************** 
380 CLS5SCREEN9,7,0:A=48:B=144:C0NSDLE22 
,24:SCREEN,1 :CONSOLEO,24:CÜLOR,7:RESTORE 
260:sc=o: TA=0:PA=0: PRINTCHRS(20) 

390 BOXF(O,49)-(88,81):BOXF(0,145)-(88,1 
77): BQXF(160,49)-<176,81):BOXF(160,145)- 

(176.177) 

400 BOXF(248,49)-(320,81):BOXF(248,145)- 

(320.177) 

410 FOR ï = 17032:READX:LINEC88,I+A)-(X+88, 
I+A):LINEC176,I+A)—(X+176,I+A):LINEC88,I 
+B) -< X+88 , I+B):LINE( 176, I+B)-C X + 17.6 , I+B) 

:LINE C248,I+A)~ C248-X,I+A) 

420 LINE C160,I+A >-C160-X,I+A):LINE C160,I 
+B)-<160-X,I+B): LINE(248,I+B)-<248-X,I+B 
):NEXT 

430 BOXF(248,49)—(320,81):B0XFC248,145)- 

(320,177) 

440 COLORS:BOXF(0,48)-C104,50):BOXF(144, 
48)-(192,50 >:BOXF(232,48)-(320,50) 

450 L0CATE4,7:CÜL0R7,0:PRINTCCS<1):LOCAÏ 
E4,8:CÜLOR1 :PRINTCCSC 2):LÜCATE4,9:CQL0R7 
:PRINTCCS(3) 

460 LOCATE33,7:C0L0R7,0SPRINTCCSC1):LOCA 
TE33,8:COLOR1 : PRINTCCSC2):L0CATE33,9: COL 
0R7:PRINTCCSC3) 

470 LQCATE4,19:C0L0R7,0: PRINTCCSC1):LOCA 
TE4,20:COLOR1 :PRINTCCSC 2):L0CATE4,21 : COL 
0R7:PRINTCCS(3) 

480 L0CATE33,19:C0L0R7,0: PRINTCCSCl):LOC 


ATE33,20:COLOR1 : PR ï NTCCS C 2):L0CATE33,21: 
COLOR7: PRINTCCS(3>:CDLORS 
490 BOXFCO,144)-C104,146):BOXF(144,144)- 
<192,146):BOXF C232,144)-C 320,146) 

500 GOSUB710:G0SUB940:GQTQ770 
510 '********************************** 
520 '* AFFICHAGE DE L’OUVRIER * 

530 *********************************** 
540 LOCAIEX,Y: PRINIAS; BS ; CS ; BS; DS:RETVRN 
550 *********************************** 
560 '* CHUTE DE L'OUVRIER * 

570 *********************************** 
580 IFX <14THENC0L0R0:LÜCATEO,5: PRINTRIGH 
TS CMS,X):X = X + 1:G0SUB540:G0T0580ELSEY=Y-1 
590 FÜRS=0T017:LOCATEX+l,Y+S-l:PRINT" " 
:LOCATEX+1,Y+S:PRINTAAS;BBS;CCS? BBS5 DDS: 
NEXT:G0SUB710:RETURN 
600 '********************************** 
610 ’* AFFICHAGE DE L’ECRASSEUR * 

620 '********************************** 
630 COLORO: IFD=1THENL0CATEP, C:+3: PR INT" 

n 

640 LOCATEP,C:PRINT" "; GRS(23)S" ":LOC 

ATEP,C+1 : PRINTJS :LOCATEP,C+2: PRINTKS 
650 IFC<15ANDD=0THENC=C+1ELSED=1 
660 IFC>9ANDD=1THENC=C-1ELSED=0 
670 RETURN 

680 '********************************** 
690 '* AFFICHAGE DU FEU * 

700 J ********************************** 
710 COLOR1,7:F0RE=0T011STEP11 :LQCATE1S+E 
,17: PRINTGRSC31):LOCATE14+E,18: PRINTGRS C 
32); GRS(33)5 GRS(34) 

720 LOCATE13+E,19: PRINTGRS(35)S GRS(36)3 G 
RS C37); GRS C38 >; GRS C39):LOCATE12+E,20: PRI 
NTGRS(40)3 GRSC 41)5GRSC 42)îGRS(43)5 GRSC44 
)5 GRS(45);GRS(46) 

730 LOCATE12+E,21 : PRINTGRS(47); GRS C48 >5 G 
RS C 49)5 GRS C50); GRS(51);GRS(52); GRS(53) : N 
EXT:RETURN 

740 *********************************** 
750 '* BOUCLE PRINCIPAL * 

760 ' *** ** ********** ************ ***** *:* 
770 I“3:Y=2:x=0:G0SUB540:COLORO:L0CATE20 
,5:PRINTLS:LOCATEO,5:PRINTLS 
780 LOCATE18,23:COLOR1,7:PRINT"ACTION":L 
0CATE18,23:A=RND:C0L0R7,1 :PRINT"ACTION": 
ÎFSTRIG(0)=0THEN780ELSEL0CATE18,23:PRINT 
" ":COLOR,7 

790 IFSTICKC0 >=3THENX = X +1 :SC-SC+(X*CINT( 
RND)):G0SUB540ELSEIFSTICK(0)=7ANDX>0THEN 
X=X-1:G0SUB540 

800 IFX>I—3ANDX<12THENL0CATEX,Y:PRINT" 

":y=Y+1 :GQSUB540:G0SUB580:G0T0890 
810 IFX >I—3ANDX>11ANDX <16THENG0SUB590: GO 
T0390 

820 IFX>ï-3ANDX>15ANDX<18THENL0CATEX,Y: P 

RINT" ":Y=Y+1:G0SUB540:G0T0890 

830 IFX<J+13ANDX>20ANDX<23THENLPCATEX,Y: 

PRINT" ":Y=Y+1:GQSUBS40:G0T0890 

840 IF X < J+13ANDX >22ANDX <27THENG'0SUB590 : G 

QT0890 

850 IF X >28THENSC-SC+1000:G0SUB940:G0T098 
860 I = I+CINT C1.5*RND)-CINT(1*RND)IIFI<3T 
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HENI=3ELSEïFI>20THENI=20 

870 0 =J+C ï NT Cl.5TEND)-CINT C1.5*RND>: IFJ< 
3 T HEN T'=3 EL SE 1F J> 19THEN J= 19 
080 C0L0R0:LOCATEO , 5: PRÏNTR IGHT$C M$ , I > : L 
ÜCATE22,5: PRINTM1D$C N$,23-J,18>:G0T0790 
890 G0SUB940: IFSO-RE THENRE=SC: G0SUB940 
900 L0CATE18,23:CÜL0R1,7:PEINT"ACTION":L 
□GATE 1©,23:COLOR7 ( 1 : PEINT"ACTION":IFSTRI 
G C 0 ) -0THEN890ELSE38.0 

910 ' * * * T * * T * * * * * T T * T T * * * * * * * * * * * * * * * * 
920 '* AFFICHAGE DU SCORE * 

930 ' * * * * * * * * * * * * T: T * * * * * * * * ¥ T * * * T T: * * * * 
940 CÜL0R4,7 : LOCATEO, 23 : F'R I NT" SCORE : 

: PRIIMTUSING"#####" ; SC: L0CATE27,23: PEINT" 
RECORD : "5 : PRÏNTUSÏNG"####"5 RE:RETURN 
950 ' *****TT*************************** 
960 'T ECRAN SECONDAIRE * 

970 '*************#******************** 
980 CONSOLEO,15:CLS:CONSOLEO,24:Z2=17 
990 BOXFCli1)-<38,8)L$,0:GOSUB1380 
1000 ATTRB1,1:L0CATE4,5: PRINT"LE METALLO 
RGISTE" : ATTRBO , 0: Y=14: X=19: GOSUB540': GOSU 
B1380 

1010 '********************************** 
1020 '* BOUCLE SECONDAIRE * 

1030 '****** ************* ********* ****** 
1040 C=9 : P= 13 : LOC ATE13, 13 : F‘R IN T " " : F 

0RI=0T03:GOSUB630:G0SUB630:G0SUB630:SC=S 
c-l:ï FSC=0THENGÜSUË1320 

1050 ïFSTï CKC 0 > =3ANDX <31THENX=X+1 :G0SUB5 
40ELSEIFSTICKC 0)=7ANDX>OTHENX=X-1 :G0SUB5 
40 

1 060 IF X > 10 AND X < 17 ANDC > 11 TH EN 1320 
1070 NE X T:GOSUB1380 

1080 IFX =2ANDTA=OTHENSC=SC+100:TA=1: PLAY 
"L1OSISIRERE":L0CATE2,16: PRINT" ":GOSUB 
640 : P A=0 : G 0 S U E: 9 4 0 

1090 IFX*30ANDTA®1THENSC=SC+200:TA=2: PLA 
Y"L1 OSIS ï RE R E":L OC A TE 30,16:PRINT" ": GO 
SUB540:PA=0:G0SUB940 

1100 IFX<3ANDTA=2THENSC=SC+300:TA=3: PLAY 
"L10SISIRERE":LOCATE2,16:PRINT” ":GOSUB 
540:PA=0:G0SUB940 

1110 IF X >29ANDTA=3THENSC=SC+400:TA=4:PLA 
Y"L10SISIRERE":PA=0:G0SUB940 
1120 IFX<3ANDTA=4THENSC=SC+500:TA=5:PLAY 
"L10SISIRERE":LÜCATE2, 16:PRÏNT" " : GO SUE: 
540:PA=0:G0SUB940 

1130 C=9:L0CATE24,13:PRINT" ": FOR1=0 

7 03: F’=24: GÜSUB630: G □ SU B630: G0SUB630 


1140 IFSTICKC 0>=3ANDX<31THENX = X +1:GOSUB5 
40ELSEIFSTICKC 0>=7ANDX>OTHENX=X-1 : GOSUB5 
40 

1150 IFX >21AND X<28ANDC>11THEN1320 
1160 NE X T:GOSUB1380 

1170 IFTA=0ANDPA=0THENL0CATE2,16:CÜLÜRO: 
PRINTË*:PA=1:PLAY"L5RERESISI" 

1 ISO IFX<3ANDTA=0THENSC=SC+100:TA=1: PLAY 
"L10SISIRERE":L0CATE2,16:PRINT" ":GOSUB 
540:PA=0:G0SUB940 

1190 IFTA=1ANDPA=OTHENLOCATE30,16:C0LÜR2 
:PRINTF$:PA=1:PLAY"LSRERESISI" 

1200 IPX>29ANDTA*1THENSC=SC+200:TA=2:PLA 
Y"L10SISIRERE":LDCATE30,16:PRINT" ": GO 
SUB540:PA=0:GOSUB940 

1210 IFTA=2ANDPA=0THENL0CATE2,16:C0L0R0: 

• PRINT G$:PA=1:PLAY"L5RERESISI" 

1220 IFX<3ANDTA=2THENSC=SC+300:TA=3: PLAY 
"L10SISIRERE":L0CATE2,16:PRINT" GOSUB 
540: PA=0:G0SUB940 

1230 ï FTA=3ANDPA=0THENLQCATE30,15:C0L0R8 
: PRINTH*: PA=1 : PLAY"LSRERESISI" 

1240 IFX>29ANDTA=3THENSC-SC+400:TA=4:PLA 
Y"L1OSISIRERE":PA=0:G0SUB940 
1250 IFTA=4ANDPA=0THENLQCATE2,16:C0L0R8: 
PRINTI $:PA=1:PLAY"LSRERESISI" 

1260 IFXOANDTA=4THENSC=SC+500: TA=5:PLAY 
"L10SISÏRERE":L0CATE2 , 16:PRINT” w :GOSUB 
540:PA=0:G0SUB940 

1270 IFTA=5THENATTRB1,1 :C0L0R4,15:LOCATE 
16,11: PR INT" BRAVO” : ATTRBO, 0: GOSU B940:, GO T 
01330 

1280 GOSUB940: GOTO1040 

1290 '********************************* 
1300 1 * FIN DE PARTIE * 

1310 '********************************* 

1320 F0RZZ=0T021:GOSUB1380:NEXT:G0SUB940 
: GOTO1330 

1330 G0SUB940: IFSORE THENRE=SC: G0SUB940 
:LQCATE4,9:ATTRBO,1 :C0L0R1,0:PRINT"VI VE 
LA REVOLUTION PROLETARIENNE":ATTRBO,0: PL 
AY"L5S0LASIDOSOLASIDODOPDOPPDOPPPDO" 

1340 LOCATE18,23:C0L0R1,7: PRINT"ACTION": 
L0CATE18/23:A=RND:C0L0R7,1 : PRINT"ACTION" 
: IFSTRIG C 0)—OTHEN1330ELSE380 
1350 '********************************* 
1360 K* AFFICHAGE D'UNF BARRE * 

1370 '********************************* 
1380 CÜLORO:LOCATEO,ZZ:PRINTMID$C0$,i+IN 
TC ABSCCOSC Z))),40):Z=Z+1.5708:RETURN 
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DISKIX 

Ce programme vous permet de percer les secrets d'une 
disquette : inspectez par secteur, modifiez, écrivez, bidouillez. 


10 FOR T=&HDÎ0ti TÜ & H Oh VE 

30 POKE T ,UALC" &H "+ A* > 

20 READ A* 

4ü NEXT 
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EXEC &HI 
DAT A U o , I 

, ES,0 3, S. 
DATA 3?,! 
,50,4C,4I 
DATA52, ( 
, B D , E 8,0 - 
DATA01 ,1 
, 3A,CC,0 
DATABD,! 
, 03 , CC , 01 


,98,Cl 
28,03 
,34,06 
CE, CC 
, 02,C2 
FF, 32 

,26,11 
i n l - 7 


DATA56,56,56,56,56,39, 
,CB,09,20,0 2,C4,0 F,39,C 
DATAI 7,FF,B7,86,08,B7, 


*,?A,7A,DA , *. 
» DATA20,BD 
. , 7A , DA , 9C, ; 
I DATABD,E8 

,7F, 22,05,1 
I DATAS3,4A 
),E8,03,BD,E 
I DATAI 7,FD 
) ,20,SI ,06,: 
i BATA58,1 F 
),D5,80,02,: 
» DATAI B > F6 
* j 27,E9,33,* 
i DATA04,86| 
00,3B,E6,< 
i DATACB,03, 
i, 02,86,14, ! 
I DATAF6,60, 
>,C6,15,80,E 
i DATA69,C6, 
), Eo j Ô J j L'j , < 
I DATABD,E8, 
), C6,03,BD, i 
i DATAFF,CF 
3, 1 F , 31 , lE,f 
i DATA0C,27 
. , 15,27,1B,( 
I DATA20,1A 
3,20,0E,86,( 
I DATA20,02 
i ,1 B,F6,60,: 
l DATA81,16 
. ,17,FE,3C,; 
I DATAF7,60, 
),00,BF,60,< 
l DATA98,F7, 
>,E8,03,BD,£ 
l DATA08,F7, 
1 , C' 6,1 0 , F 7 , < 
) DATA46,46 , 

. 99.99 .09.* 


o o r> o fi r> 
i y j *- u , 

i DATAI 3,C6 


9B,86, 
, DA, 9A 
CB,30, 

1 ,39,F6 

9B,26, 

1 ,E8,03 
26,EE, 
1,03,30 
BD,ES, 
i,26,E9 
ES,03, 
,06,39 
26,14, 
,31,34 
16,FD, 
,60,20 
48,1F, 
,14,16 
6Ü,IB, 
, 1 6 , F D 
1 6 , F D , 
,20,C1 
02,81 , 
,20,BD 
20,BD, 
,03,BD 
E8,03, 
,B6,60 
89,3A, 
,1B,C1 
Cl,18, 

i,86,01 

04,20, 

!,86,07 
20,CB, 
,25,02 
35,06, 
,48,5F 
4F,F6, 
,60,4B 
ES,©3, 
,60,48 
60,48, 
,46,8D 
SB,07, 
,38,00 


08,B7,DA, 
i,8D,02,20 

Cl,3A,25, 

> ,DA,9A,BD 
DA,C6,3A, 

!, E6,84,8D 
36,08,C6, 

,18,E6,80 
03,20,05, 
>,C6,0D,BD 
7A , DA , 9D , 
17,00,8A 
î1,33,A0, 
,06,17,FF 
00,39,17, 
,81,14,26 
31,34,04, 

!,FD,AC,SB 
F6,60,20, 

1 ,95,C6,06 
88,17,00, 
,06,27,05 
06,22,02, 

1 ,ES,03,C6 
ES,03,C6, 

1 ,E8,03,BD 
BD,E8,03, 
,16,F6,60 
1E,89,Cl, 
,0F,27,IB 
27,1B,C1, 
,20,16,86 
0A,86,05, 

1 ,30,86,35 
03 , Cl , 1 E , 

!,86,14,C6 
16,FC,C6, 

,F7,60,49 
DA,97,F7, 

:,BD,E8,2A 
BD,ES,03, 
i,7E,DA,3B 
BD,E8,2A, 
',02,35,02 
1 F,89,BD, I 
,00,00,30 


9C,1F, 
,13,59 
02,CB, 

1 , ED , 1 F 
BD,E8, 

1 ,D0,E6 
28,BD f 
,C1,20 
C6,2E, 

, E8,03 
10,26, 

,B6,60 
00,27, 

,4B,35 
00,63, 
,16,11 
17,FF, 
,02,16 
Cl,IB, 

, 8B, 02 
1C,B6, 
,C0,03 
86,06, 
,09,BD 
08,BD, 

, E8,03 
BD,E8, 
,20,80 
09,27, 
;,C1,12 
18,27, 
^02,20 
20,06, 
1,04 ,E7 
26,0A, 
,06,34 
80,39,. 
’,F7,60 
60,4C, 

,24,0B 
39,SD, 

,5F,5A 
39,34,i 
,84,0F 
E8,03 , : 


10,1E 
,59,59 
07, BD 
, 1 0 , F7 
03, C6 
,80,8D 
ES, 03 
,25,09 
BD, ES 
,C6,0A 
FF, 7B 
, 1B,F6 
10,33 
,06,16 
B6,60 
, 83, A0 
24,35 
, FD , A7 
24,05 
,81,14 
60 , IB 
, 1 6,FD 
16,FD 
, E8,0 3 
ES, 03 
,39,34 
03,17 
, 06,48 
1 B , Cl 
,27,IB 
1 B, 4F 
,12,86 
86,06 
,84,B6 
8 B, 02 
,06,1F 
C6,02 
,4A,8E 
F6, DA 
, C6,07 
0 8, C6 
, F7,60 
02,46 
, 8B, 30 
39,02 


Commentaires : 

T Y U positionnent l’écran sur le secteur. 

W écrit le butter courant à la piste et secteur indiqués. 

M et L changent de secteur ; vous vous déplacez dans le butter 
courant avec les flèches. 

NB : l'article 47, titre V, de la loi 85-600 du 43 juillet 1985, 
autorise une copie unique de sauvegarde... 
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THOMSON 


SNAKE 

Vous êtes un serpent mangeur de petits points qui se 
multiplient dans la pièce où vous évoluez. Vous vous 
orientez avec les flèches, mais attention : si vous cognez 
dans un mur, ou vous mordez la queue, vous êtes mort ! Quatre 
niveaux de difficulté. Si vous voulez souffler, tapez « stop ». 


10 '*** SNfiKE T07,MOS 
20 •' SOTIROPOULÛS C. 

30 ' 

40 CLERR1000 

56 DEFIHT A-B,D-2 : DEFSTR C 
60 DIM E< 100 > s SCREEN0, 7 .* 2 : PL=24 ’ 

79 CLS»PRINTCHR*<20>; ; PRINT ! PRINT s PRINT" 
Niveau. 1-4 ? " : X$=INPUT$< 1 > : IFVflLC X$>< 1 
OR VAUX*)>4 THEH RUN 

80 XX=106-(VflLCX4>-l )*27;CLS : IF XX<106 R 
ND VflLCX*>>2 THEH BOXFC10,10 >-< 20,98 > 

90 BQXC 0,0 >-< XX, 102 > « LI NEC 20,102 >-C 30, 1 ù 
2>,-8 : LINEC 20, 102>-< 17, 103>*LINEC 13, 102 > 
-C 16,108 ) : LOCflTE1, 15 : PR INT "Porte" : LOCflTE 
2,14 : PRINT"^" 

100 flLEfl=RND<0 >sRTTRB1,0 sC0L0R3,2 = LOCflTE 
2/21 ; PRINT"LE SERPENT MANGEUR";•HTTRBü, 

0 

110 C=“"=L=24sM=0 = P=24 ;Q=60 ‘ P1=P = Ql=72 = B 
*0‘fl*11 :X=24:V=24 : F— - 1 :K=19 : I«fl 
120 LOCRTE20,2 : C0L0R7,4 : PR INT "Points 11 
LOCATE30,2 : PRIHT L 

130 LOCflTE 20,6 : C0L0R7,2 ! PRINT"RECORD =" 
;=LOCRTE30,6 : PRINT PL :COLOR0,7 :LÜCRTE26, 
9 : PRI HT " N i veau. " ; VflLC X$ > 

140 if F=-l AND PüINTCX,Y>=0 THEH 500 
150 IF POINT< X,Y>=-8THEN 240 
160 IF F=-1THEH 240 
170 H=0 

180 FOR G=0 TO F 

190 IF E<G)OX+Y*256 THEH 210 

200 M=M+5 = FOR J*G TO F = E< J >*E< J+l ) = NEXT 

F»F—1 : PLflV " 03T1SI # " ; GOTÜ240 

210 H=H+1 

22Ô NEXT 

230 IF H=F+1 THEN500 

240 PSETCX, Y>: IF POP1 OR QOQ1 THEH PSE 


T( P, Q >, -8 
250 P1=P * G1=Q 

260 D$=INKEY$ : IF D**CHR$<8> OR D*«CHR*<9 
>0R D$=CHR3K 10> OR D$=CHR$< 11 >' THEH fi*AS 
CCD$ Y 

270 IF ROB THEH C=C+CHRS< X >+CHR$C Y )+CHR 
$C R ) 

280 B=R 

290 K=K-(K<>20) 

300 IF K=20 AND F<19 THEH G0SUB430 
318 L=L-< M< >0 > - IF M< >0 THEH PLAY ,, Ü3TlSr' 
LOCflTE 30,2 : C0L0R.7,4 ; PRINT L'COLOR 0,7 
320 IF PL<L THEH PL=L : C0LÜR7,3 : LÜCATE 30 
,6 : PRIHTPL : COLOR0,7 
330 M=M+<M>0 > 

340 IF M>0 THEH 400 
350 IF LENCC>=Q THEN380 
360 IF P< >flSCC MID$< C, 1,1> > OR QOflSCCMID 
C,2,1>) THEH 380 

370 I*flSCCMID*<C,3,1> > = C=MID«C C,4,LENC C> 
-3) 

380 P*P+(I*8>-< 1=9 > 

330 Q=Q+< 1 = 11)-< 1 = 16) 

400 X=X+CA=8 >-<fl=3> 

410 Y=Y+<A=11)-Cfl=10 > 

420 GOTO140 

430 IF F=19 THEH RETURN 
440 0=RND< 1 >*XX+1 : R=RHD( 1 >*102+1 
450 IF POINT<0,R>=0 THEH 440 
460 F=F+1^ ECF )=0+R*256 
470 PSETC0,R ) 

480 K=0 
490 RETURN 

500 X=X-<fl=8>+CA=3> = Y=Y-<fl=l1>+<fl=10>: FO 
R 1 = 1 TO 10 ! BEER : BEEP : BEEP : P3ET< X, Y > •• PSET 

C Xi Y >, -8 = NEXT 
510 GOT070 


THOMSON 

LE POULAILLER 

Recueillez dans votre brouette (!) la ponte de vos 
poules. A la douzaine, allez à gauche du poulailler, 
tirez la manette à vous pour emballer. Attention : si vous 
dépassez la douzaine, vous les cassez tous. 
Au-delà de cent œufs cassés, c'est la ruine. 


10 J #*#î|îs:****************************** 




* 


► 
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30 ’ * LE ROULAILLE * 

40 ' :*• * 

50 ' X F ei i t pEi r Ch r i s t-ophe C0UA3NARD X 
60 J :t: X 


70 ' ***********::***** XXXXX ************** 
80 CLEAR50G,&HDFFF,43:C0NS0LE0,24,0,0: CL 
S:SCREENO,11,8:DEFINTA-2:C0=7 
30 FURI=01048: READA,6,C,D,E,F,G,H:DEFGR* 
Cï? = A,B,C,D,E,F,G,H:NEXT 

100 CUNSÜLEO,24:CLS:SCREENO,11,8:CONSOLE 
0,7ü SCREEN,6:C0N3ULE22,24:SCREEN,10:CONS 
OLEO ; 24! BUXF<240,O)-(320,175),4:COLOR15, 

i:VE=o:vc=o: ub=o 

110 FURï =8T021 : LUCATE0,I,0: PRINTGR$ <26>: 
LUCATE29,I : PRIN TGR$<26): NEXT: FORI=010233 
: L1 NE < 120,0 >-<: I , 64 > , 3 : NEX'f : attrbo , 1 
120 C0L0R4 , J. 1 : LÜCATE3,6: PR INT" LE ROULAIL 
LER":ATTRBO,0:COLOR15: FORI = 1T028:LOCATE1 
, i3;printgr$<27?:next 

130 ATTRB1,0:COLORO: LUCATE30,01 PR ï NT" 7 U 
P ":LUCATE30,1 : PRIN C"SCORE”:L0CATE30,10: 
PRINT"VOTRE" : L0C-ATE30,11 : PRINT"SCORE" : AT 
TRBO; 0 • 

140 60SUB770:GÜSUB720:COLOR,11 
150 A1>=" " +CHR*C 27 > +CHR$ C 67? +GR$ ( 0 ? +GR*C 
1> 4":B$=CHR$C8 ? +CHR*<8>+CHR$C8?+CHR* C8 
) +CHR$( 10? 

160 C$=" " +CHR* (27) +CHRÎ U 13> +GR*C 2 ) +CHR 
$ ( 27 ? +CHR* C 64 ? +GR* ( 3 ) + " " : 0$=CHR$ ( 10) +CH 
R$C 8) +CHR* ( 8) +CHR*< 8) +CHRSK 8) +CHR*( 8> 

170 E $ = " " +CHR$( 27 ) >CHR$ C 65 ) +GR$ ( 4 > +GR$ ( 
5> +GR$(6 > 4 " ": F$=CHR*C10)+CHR*(8)+CHR*(8 
) +CHR$ < 8 > +CHR*< 8 > +CHR$C 8)+CHRSK 8) +CHR* C 8 
)+CHR$<8>+CHR*<8> 

180 G$=" "+CHR$(27)+CHR$C119>+GR*C7>+GR* 
<8 >+GR*(3)+GR$(10)+GR$ Cil)+CHR*C27 >+CHR* 
(68)+GR$(12?+GR$(13?+" " 

130 H$=" "+CHR$( 27? +CHR$< 119? +GR$( 14? 4-G'R 
15 < 1S ? +GR$( 16 > +CHR* C 27 ? +CHR* C 64 ? +GR$ (17? + 
GR$ C 18 ? +GR$ ( 19?+GR*C20? + " " 

200 I$=GR$(22 ? +CHR*<10? +CHR$(8 ? +GR$(23 ? + 
GR4K24) 

210 CC*<1 ? =Gfi$(34)+GR*< 35 > +GR* C 36 ? +GR$ C3 

7?+GR$<38) 

220 CC$ C 2 ? =GR$( 33 ? +GR$ ( 40 ? +GR$ (41? +GR* C 4 
2 ? i GR“A( 43? 

230 CC * «: 3 > =GR $(4 4 ? + GR $ < 45 > + GR* C 46 ) +GR$ < 4 
7)+GR*(48 ? 

240 COLOR7 : FORI=3TQ26STEP3:LOCATEI,11: PR 
INT 1$:NEXT 

250 I=2S*RND: IFI<6THENI=6:GOSUB450ELSEGO 
SUB450 

260 2=RND:C0L0R7,0:L0CATE32,22:PRINT"AC7 
ION":COLORO,7:L0CATË32,22: PRINT"ACTION": 
IFSTR1G C0? =0THEN260 

2/O CÜLÜR10,10:LQCATE32,22: PRINTSPC<6 ? : C 
OLÜR,11 

280 ' XXX T X T XXXXXXXXXXXXX T XXXXXXXXXXXXX T 
290 'X BOUCLE PRINCIPALE * 

300 ' XXXXXXXXXXXXXXXXXXXXXXXX ********** 

310 G0SUB540:G0SUB430 

320 IESTICK C0)=3ANDI<257HENI = I +1 :GQSUB42 
OELSEIFSTICK(0 >-7ANÜI>6THENI = i-1 :G0SUB42 
OELSEiFSTICKC0? =5ANDI=6ANDVE=12THENG0SUB 

810 

330 1FSTICK(0 ? =3ANDï<25THEN1 = 1 + 1:G0SUB42 
OELSEïFSTICKCO ? =7ANDI>6THENI = I-1 :G0SUB42 
OELSE 1 FST 1 CK ( 0 ? =5 AND ï --6 AND VE =12THENGÜSUB 
810 


340 IFX>I-4ANDX<I ANDY=19THENVE=VE+1:PLA 
Y M A1L1 OU IMI " : GÜSUB720 : LÜCATEX , Y : PR I NT " 

:G0TÜ310 

350 IFX>I ANOXCI+3 ANDY=17THEN400 
360 IFX =I ANDY=19THEN400 
370 IFVC=100THEN400 

380 IF Y=21 THENVC=VC+1 : PLAY" A1L1ODODO " : GL) 
SUB720:LÜCATEX,Y:PRINT" ":G0T0310 
390 GQSUB490:GÜT0320 

400 G0SUB870:IFVB>RB THENRB=VB: PLAY"A2L1 
ODÜREMIFASQLASILASOFAMIREDO":G0SUB770ELS 
EPLAY"DOPDOPDDPDOPDOPP" 

410 CÜL0R7,0:L0CATE32,22:PRINT"ACTION" : C 
OLQRO,7 :LÜCATE32,22:PRINT"ACTION":IFSTRI 
G <0 ? =0THËN41OELSE100 

420 ' XXXXXXXXXXXXXXXXXXXXX********XXXXX 
430 'X AFFICHAGE DU PAYSAN X 

440 ' XXXX 7: XX * XXXXX * X T X T XXX T X T :XXXXXXXXXX 
450 LOCATE I , 17: PR IN VA* ; B* ï C-$ ; D$ î E$ 5 F* 5 6$ 

? F*;h*:return 

460 1 ******'* XXXXXX XX XXX XXX *** ********** 

470 ’X AFFICHAGE DE L’OEUF '* 

480 '*^****#*#**##*####*#*#^##^#**^** 
490 COLOR7,11:IFY<>13THENL0CATEX,Y:PRINT 

n tt 

500 Y=Y+1 :LÜCATEX,Y:PRINTGR$(21 ? :RETURN 
510 ’ XXXXXXXXXXXXXXXXXX**********XXXXXX 
520 ’X COORDONNEES DE L’OEUF * 

530 ’********************************** ■ 
540 X=1 + C1 + CRNDT23? 03? X31 LOCATEX,14: PRIN 

r'GR$ ( 21 ? : y=i 3: play" l :l 2A i s I s I " : return 

560 ’ XXXXXXXXXXXXXXXXXXXXXXXXXX T XXXXXXX 
660 ’X DONNEES GRAPHIQUES X 

570 ’ ************î|c****î|c***#*#*#Ÿ**#**^^ 
580 DATAO,0,0,0,0,3,7,63,0,0,0,0,0,192,2 
24 ,252,15,7,13,31,7,11,15,1,240,240,240, 
240,224,224,192,128,0,0,0,0,0,0,3,7,3,7, 
15,31,63,247,207,15 

590 DATA192,192,224,224,224,224,224,224, 
0,0 ; 0,0,0,0,3,15,255,127,63,31,31,63,243 
,225,2S5,255,255,255,255,255,252 
600 DATA224,255,255,255,25'5,255,195,1,0 , 
255,255,129,0,0,0,0,128,31,31,31,31,15,3 
1,31 ; 56 

610 DATA224,224,240,248,248,240,224,112, 

31.31.63.63.31.31.15.3.240.240.248.248.2 
40,240,224,128,0,0,0,0,0,0,0,0,0,0 

620 DATAO,0,0,0,0,0,0,0,0,0,4,7,7,7,56,1 
12,112,112,224,248,248,248,112,56,56,28, 
156,255,255,255 

630 DATA24,60,60,126,126,126,126,60,0,16 
,48,216,56,24,28,28,29,63,63,63,63,31,15 
,7,224,250,255,254,252,248,240,224 
640 DATAO,104,206,231,207,220,104,0,237, 
237,237,255,2.19,187,187,187,255,255,255, 
0,0,0,0,0,0,0,0,0,3,7,15,31,0,0,0,0,0,12 
9,195,231,0,0,0,0,192,224,240,248 
650 DATA127,63,63,31,31,15,7,3,255,255,2 

55.255.255.231.195.129.254.252.252.248.2 
48,240,224,192 

660 ÜATA28,62,127,127,126,60,56,24,57,12 
5,252,124,56,24,8,0,239,239,206,68,0,0,0 
; 0,56,124,254 ,124,56,48 /32,0,56,124,254 
254,126,60 ; 60,56 

670 DATA24,8,0,0,0,2,2,6,255,195,123,128 
,128,129,195,255,1,1,1,1,1,57,41,57,254, 
134,2,0,0,2,134,254,24,48,32,0,0,128,192 
, 192 

680 DATA14,30,63,127,127,126,62,28,O,0,3 
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2 ; 112,249,2S1, 251,112,0,0,0,136,140,222, 
222 ; 140,1,1,19,59,127,251,249,112,224,22 
4 ; 240,248,248,248,240,224 
690 J ******** XXXXXXXXXXXXXXXXX*XXXXXXXX 
700 'X AFFICHAGE DU SCORE X 

7 10 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

720 ï FV E = 13 THE N VE=0:VC=VC+12 
730 LOCATE31,14,0:C0L0R7,1 : PRINTGR*<21 >; 
” : " ; : PRINTUSï NG"#####"5 VE:L0CATE31,17 : C 
ÜL.0R3, 1 : PRINTGRÎ C 25 > 5 " : " S : PR INTUS 1NG" ## 
###" ; vc: COL.GR ,n: RETURN 

740 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

7 50 ‘X AFFICHAGE DU TÜP-SCORE X 

760 ’xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

/70 COLOR,4: XX=31 :YY=4; GÜSU6820: X X «-4: YY 
-22C C0L0R7,1 : ATTRBO , 1 : F’RI NTUS ING" #####"> 
RSïATTRBO,0:RETURN 


780 ********************************** 

790 ‘X AFFICHAGE D'UNE BOITE * 

800 '********************************** 

810 XX-XX+4:VB-VB+1 :VE=0: IF(VB/10>-<VBO1 
O> THENX X=0;VC=0:CO-CO-1 

820 LOCATEX X., Y Y : CQL0R3,10: PR ï NTGR$ ( 28 ) Ü G 

m c 29 :> ; gr* <: 30 > : locatex x, yy+ 1 : coldrcü : pr i 

N füR$ <: 31 :> : GR$ <; 32 > j GR*< 33 ) ; : RETURN 
830 GQSUB810:A*=INPUT*Cl):G0T0830 
840 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
850 'X ECRAN FINAL X 

880 ' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

870 FOR J=0T 07 : FOR I =0T05 : LOCATEI*5, J *3 : CO 
L0R7,0:PRINTCC*Cl):LOCATE1*5, J*3+l :COLOR 
1 : PRINTCC*C 2):C0L0R7:LOCATE1*5,J*3+2: PR1 
NTCC*C3) :NEXT:NEXT 
330 RETURN 


. THOMSON 

L'HORTICULTEUR 


Arrosez les fleurs de couleur mate avant qu'elles ne 
noircissent et meurent. Pour ce, tirez la 
manette à vous lorsque la pomme d'arrosoir se trouve 
à droite de la fleur. A dix fleurs fanées, 
vous êtes viré ! Pour puiser l'eau, suivez les flèches. 


10 ' *********************************** 
_:0 ' * * 
30 -'T LO HORTICULTEUR * 

â-0 ’ * * 

" t Fait par Christophe COUASNARD * 
“0 ' X x 

'70 '• ******* * *********** * * * * * *********** 

■ :0 CLEAR500 , &HDFFF , 55 ü D ï MA$ < 18 > , B$ C 16 ) : C 
1 jNSOLEO,24,0,0: CLS:SCREENO,7,0: DEFINTA-Y 

; PRiNT CHR$ ( 20) 

F UN I «0T0S4 : READA , B , C, D , E, F, G , H : DEF GR* 
I > =A, 8 , C , D , E , F, G, H : IMEXT 
: OU '********************************** 
110 '* DONNEES GRAPHIQUES * 

i20 '********************************** 

1 JO DATAO,0,0,3,7,15,31,255,0,0,0,128,19 

2.224.240.255.15.31.30.30.30.15.15.7.240 
. 180,240 ; 252,240,192,240,248 

i •••! 0 DATA 1,3,15,12,29,29,29,29,192,192,22 
1 .98,184,184,188,188,29,13,13,13,13,13,2 
28 ; ;l 84 ; 184 , 184,184,188, 188,188, 184 
89 DATA7,8,8,83,127,255,255,255,192,32, 
•2,240,248,249,255,255,0,0,0,1,119,254,1 
'■ 0 ,24.255,255,255,255,127,127,0,0 
\ 60 UAÏA255,254,252,252,248,248,0,0,1,2, 

; t: ; 4,2,5,8,224,208 , 104,212,74, 170,171,7 

• V0 DATAS ; 28,53,115,123,127,63,31,56,44, 
: 4,i88,190,254,252,248,8,29,63,127,127,1 

27.63.31.32.112.248.252.252.252.248.240 

180 DATA146,210,90,111,63,63,31,15,77,20 
1 , 85,24 6,254,282,248,240,4,14,31,63,63, 
31, 1 5 ;/,68,238,255,256,255,254,252,248 
1 90 DATA/,3,129,225,227,243,118,63,227,1 


. 1 Aft . 60 

; 60 ; 

12 

A 

; 24 

ô 

31 , 

14,1 

8,12,0,1 

1 ■ O 

24 


192 

, 0 

, 0, 

o j O 

ÂÏA28,62 

, 127 

. 1 

2 

7, 1 

26 

, 60 

, 56, : 

,124,56, 

24,8 

. ü 

, 

239 

2 

39, 

206, i 

,124,254 

, 124 

, 5 

6 

; 48 


2,0 

, 56, 

26,60,60 

,56 







>ATA24,8, 

0,0, 

0, 

2 

l -4- J 

6, 

255 

, 195 

129,195, 

255, 

1 , 

1 

, 1, 

1 , 

1,5 

7,41 

:, 0,0,2, 1 

34,2 

54 

; 

24, 

48 

, 32 

, 0,0 


, 192 

220 DAT A14,30,63,127,127,126,62,28,0,0,3 
2,112.249,251,251,112,0,0,0,136,140,222, 
222,140,1,1,19,59,127,251,249,112,224,22 
4,240,248,248,248,240,224 
230 DATA62,65,66,32,30,65,129,126,0,0,0, 
0,11/,85,85,119,0,0,0,0,119,84,100,87,0, 
0,0,0,112,80,96,112,0,0,0,0,0,0,O,255,0, 
0,0,0,0,0,0,255,0,4,6,7,7,7,15,255 
240 DATAO,0,0,0,128,192,224,240,255,0,0, 
0,0,0,0,0,255,0,0,0,0,0,0,0,255,15,7,7,6 
,4,0,0,224,192,128,0,0,0,0,0,219,191,251 
,247,189,239,219,247 

250 A*«CHR*C27 >+CHR«C67 > + " "+GR*C0)+GR$C 
1> + " ":8ï=CHR$<8 >+CHR$ C8> +CHR*<8> +CHR$C8 
:>+CHR$<: 10) : C$~" " +CHR$C27) +CHR$C64) +GR$C 
2)+CHR$C27>+CHR$C113 > +GR*<3 >+" " 

260 Dî>= " +CHR*< 27 ) +CHR$ C 68) +GR$( 4 ) +GR$ C 
5 > +" " : Eî»=" " +GR$ ( 6 ) +GR$ C 7 ) +" " : F$=" " +C 
HR$ C27)+CHR$C69>+GR$(g)+GR$ C9)+GR$(10)+" 

270 G$«CHR$ C g ) +" 11 +GR$ C 11 > +GR$ C 12 > + " " : H 
$ =GR$ ( 13 > ; I $=GR$ C 23 ) +GR$ < 24 > : J$=GR$ < 25 > + 
GR$C26) 

280 FL $ C0>«GR* <15 >+GR*C16 >: FL*C1)«GR$ C17 
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THOMSON 


MORSE 


Initiez-vous à l'alphabet morse: apprentissage, 
traduction. Une lampe de poche, et vous économiserez du 
téléphone si vous êtes en vue de vos correspondants. 


10 ' * * :t * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
20 ' * * 
30 '* APPRENTISAGE DU MORSE * 

40 ' * * 

50 '* Fait par Christophe COUASNARD * 
60 ' * * 
70 ' * * * * * * * * * * 7 * * * * * * * * * * * * * * * * * * * * * * * * 
80 CLEAR500,&HDFFF,9:CQNSOLËO,24:SÊREENO 
,4,4: DEFINTA-2: PRINTCHR$ <20> 

30 FOR I =0T0S: READA, B, C, D, E, F, G, H: DEFGR* < 
1)=A,B,C,D,E,F,G,H:NEXT 

100 ' T************* ********* *********** 
110 ' * DONNEES GRAPHIQUES * 

120 ' T * * T t T * * T T * * T * * T T T T ** * * T T * T T T * * T T T 
130 DAT AO,0,0,24,24 ; 0,0,0,0,0,0,126,126, 
0 ; 0,0,66, 102,90,66,66,66,66,0,0,0,0,223, 
166,165,244,0,0,0,0,174,170,170,174,3 
140 DATAO,0,3,169,169,169,237,0,0,0,8,20 
5,73,73,229,0,0,0,0,213,213,21,221,0,O,0 
,0,192,64,128,64,0 

150 A$co:>=" " : a$< i >=gr$<:o> : a$(2)=gr*<; 1 > : 
M$=GR$ < 2 > +GR$ ( 3 ) +GR$ < 4 ) +GR$ < 5 > +QR* < 6 > +GR 
$t;7>+GR$<8> 

160 D2$(0>= "ECOUTEZ ATTENTIVEMENT LA LËT 
TRE" : D2$< 1 ) ="MORSE , ET TAPEZ CETTE LETTR 
E AU" 

170 D2$<2)= "CLAVIER. POUR LA REENTENDRE 
D2*C 3APPUYEZ SUR LA TOUCHE ' ENTR 

EE' " 

180 D3$<0 > ="REGARDEZ LA LETTRE MORSE ECR 
ITE":D3$(1)= ”EN NOIRE, ET TAPEZ LA LETTR 
E 

190 D3$(2)="ALPHABETIQUE EQUIVALANTE AU 
":D3*<3)="CLAVIER. 

r> 

200 D4$C0)="ECOUTEZ ATTENTIVEMENT LA LET 
TRE" : D 4 $c; 1 > ="MORSE , ET REGARDEZ-LA . TAPE 
Z AU" 

210 D4$(2)="CLAVIER, LA LETTRE ALPHABETI 
QUE ,J :D4$C3>="EQUIVALANTE. POUR LA REENTE 
NPRE":D4*<4>=D2$<3> 

220 '********************************** 
230 ’* DONNEES DU MORSE * 

240 ' ********************************** 
250 DATA"A",1,2,0,0,0,"B",2,1,1,1,0,"C", 
2,1,2,1,0,"D",2,1,1,0,0,"E",1,0,0,0,0,"F 
",1,1,2,1,0i"G",2,2,1,0,0,"H",1,1,1,1,0 
260 DATA"I", 1,1,0,0,0,"J",1,2,2,2,0, "K" , 
2 , 1 , 2 , 0 , 0 , "L" , 1 , 2 , 1 , 1 , O , "M" , 2 , 2 , 0 , 0 , 0 , "N 
", 2 , 1 , 0 , 0 , 0 ,"□”, 2 , 2 , 2 , 0 ,0,"P”, 1 ,2, 2 , 1 , 0 
270 DATA"Q",2,2,1,2,0,"R",1,2,1,0,0,"S", 
1,1,1,0,0,"T",2,0,0,0,0,"U",1,1,2,0,0,"V 
" , 1 , 1 , 1,2,0, " W" , 1,2,2,0,0, " X" , 2, 1 , 1,2,0 
280 DATA"Y",2,1,2,2,0,"2",2,2,1,1,0,"1", 
1,2,2,2,2,"2",1,1,2,2,2,"3",1,1,1,2,2,"4 
", 1,1,1,1,2,"5",1,1,1,1,1,"6”,2,1,1,1,1 


290 DATA"7",2,2,1,1,1,"S",2,2,2,1,1,"9", 
2,2,2,2,1,"0",2,2,2,2,2,"FIN",0,0,0,0,0 
300 '******** ** * ***** ** ** ** **** ******** 
310 '* MENU * 

320 '********************************** 
330 CLS:SCREENO,4:LOCATE12,4:ATTRB1,1 : PR 
INT"MENU 

340 ATTRBO.O:LDCATE3,10:CÜL0R3:PRINT"1"; 

:color7:frint" apprentissage du morse 

350 L0CATE3,13:C0L0R3:PRINT"2";:C0L0R7:P 
RINT" TESTS SONORES 

360 LÜCATE3,16:C0L0R3:PRINT"3"; : COLOR7: P 
RINT" TESTS VISUELS 

370 L0CATE3,19:C0LÜR3: PRINT"4"; :C0L0R7: P 
RINT" TESTS VISUELS ET SONNORE":A$=INKEY 
$ 

330 Z=RND:A$=INKEY$:A=VAL(AS>:IFA<10RA>5 
THEN380ELSE0NA G0TÜ430,550,660,770 
390 GÜT0380 

400 ' ************************:***.******* 
410 ’* APPRENTISSAGE DU MORSE * 
420 '********************************** 
430 RESTGRE250:G0SUB850 

440 FORJ-0T02: FORI=0T011 :READA$,A,B,C,D, 
E:COLORl:LOCATEJ*10,1*2:PRÏNTA$5:CÜLORO: 
PR INT" " î A4K A) ; A*<:B> ; A$<o ; a$<:d) s a*<:e> ? : 
NEXT:NEXT 

450 L0CATË32,0:COLORl: PRINT"POINT":LOCAT 
£32,2:COLORO: PR1NTA$ C1>;A$ C 2 > 5 A$ <1j;A* C2 
);rt$(l);A$C2) 

460 L0CAJE32,5:COLORl: PRINT"ERREUR":LOCA 
TE31,7:COLORO: PRINTA$<1>5A$C1>SA*<1>ïA*( 
i ;> ; A $<. 1 ) ; a$<: i ) ; A$<: 1 ) ; A$<: 1 > 

470 L0CATE32,10:COLORl: PRINT"DEBUT" : LOCA 
TE30,12: PRINT"D'EMISSION"; :L0CATE32,14:C 
OLORO:FRINTA2);A$C1)5A*C2>îA$(1>;A*<2) 
480 L0CATE33,17:COLORl: PRINT"FIN":LOCATE 
30,19:PRINT"D'EMISSION";:L0CATE32,21 : COL 

üro:printa$<: i) ; a*<2) ; a$(1);a$(2);ak i) 

490 REST0RE250:L0CATE2,24:C0L0R5:PRINT"T 

APEZ AU CLAVIER LA LETTRE VOULU"; :B$=INP 
UT*<1> 

500 IFB*=CHR$ C 30) THEN330 

510 READA$,A,B,C,D,E:IFA$="FIN" THEN490E 

LSEIFA*=B* THENPLA YC* < A > + C* C B)+C* < C)+ ( 

L) > +CSCE) : G0T0490ELSE510 

520 '************************** ******** 

530 '* TESTS SONORES * 

540 '************************* ** ******* 

550 GDSUB850:ATTRB1,1 :LOCATES,2:PRINT"TE 

STS SONNORES":FA=0:RE=0 

560 COLORO,7:ATTRBO,0,: FORI=0T03:L0CATE4 
, 7+1*2: PRINTD2$<: I) ; : NEXT 

570 RESTÜRE2S0:LOCATE14,19:COLÜR,4: PRINT 
SPCC10):LOCATE12,20:PRINTSPCt20):Z=35*RN 


221 







d: fqri=otoz:reada$, a,b,c,d,e:next:pa=pa+ 

i 

580 PLAYC$ <! A ) +C$ C B) +C$ C C ) +C$ C D ) +C$ C E ) 

S90 B$=INPUT$(1):IFB*=CHR*(13)THENS80ELS 
EIFB*=CHR$C30)THEN320 

600 IFA$=B$ ÏHENLÜCATE14,20:C0L0R4,3ïATT 
RB1,l:PRINT"BRAV0":ATTRBO,0ïRE=RE+lELSEL 
ÛCATE12,20:CÛLÜRÜ,4: PRINT"NON, C'ETAIT " 

5’ ïCOLÛRl SPRINTA* 

610 CDLORO,7:LOCATE12,15:PRINT"NOTE :"; R 
E;"; PA 

620 B$“ÏNPUT$<: 1 ) : IFB$=CHR$( 13) THEN570ELS 
EIFB$=CHR$C30)THEN330ELSE620 
630 ' ********************************** . 

640 '* TESTS VISUELS * 

650 '********************************** 
660 CLS:ATTRB1,1 :LÜCATE6,2:PRINT"TESTS V 

isuels":pa=o:re=o 

670 COLORO,7:ATTRBO,0,: FORI=0T03:L0CATE4 
,7+1*2:PRINTD3SKI)5:NEXT 

680 REST0RE250 : LOCATE 14,21: COLOR ,'4 : PR I NT 
SPCC10):LÜCATE10,22:PRINTSPC(20):Z=35*RN 
D: FORI=0T0Z:READA$,A,B,C,D,E:NEXT ' 

690 PA=PA+1 :ATTRB1,1:L0CATE8,18:COLOR1 : P 
RINTM$;" "; : COLORO: PRINTA$<A)+A$(B)+A*(C 
)+A$< D)+A$(E):ATTRBO,0 
700 B$= I NPUT$<: 1 ) : I FB*=CHR« < 30 ) THEN320 
710 IFA$=B$ THENLÜCATE14,22:C0LQR4,3: ATT 
RB1,1 : PRINT"BRAVO":ATTRBO,0:RE=RE+1ELSEL 
OCAÏE12,224 COLORO,4: PR ï NT"NON, C'ETAIT " 

“:colori:printa$ 

720 COLORO,7;LOCATE12,15:PRINT"NOTE : " ; R 

ë;"/";pa 

730 B$=ÏNPUT$C1):IFB$=CHR$(13)THEN680ELS 

EIFB*=CHR$(30)THEN330ELSE730 

740 '********************************** 


750 '* TESTS VISUELS ET SONORES * 
760 J ********************************** 
770 G0SUB8S0:ATTRBO,1 :L0CATE7,2:PRINT"TE 
STS VISUELS ET SONNORES":PA=0:RE-0 
780 COLORO, 7 : AT TRBO, 0 : FOR I =0T04 : LOCATE!4, 
5+1*2:PRINTD4*CI)î:NEXT 

790 RESTORE250:LOCATE14,21:COLOR,4: PRINT 
SPCCIO):LOCATE10,22: PRINTSPC C20):Z=35*RN 

d:fori=otoz:reada*,a,b,c,d,e:next:pa=pa+ 
i 

800 ATTRB1,1:L0CATE8,18:COLOR1 : PRINTM*?" 

"; : coloro:printa$c a)+a$cB)+a$< o+a* c d) + 

A$CE) : ATTRBO, 0: PLAYC$(A)+C$< B)+C$( C)+C$C 
D)+C*CE) 

810 B*=INPUT$C1): IFB$=CHR$(13)THEN800ELS 
EIFB$=CHR$C30)THEN320 

820 IFA$=B* THENLÜCATE14,22:C0L0R4,3:ATT 
RB1,1 : PRINT"BRAVO":ATTRBO,0:RE=RE+1ELSEL 
0CATE12,22:COLORO,4:PRINT"NON, C'ETAIT " 
; :COLOR1 :RRINTA* 

830 COLORO, 7: L0CATE12, lSï PR INT" NOTE : " !i R 
E;"/"; PA 

840 6$=INPUT*C1):IFB$=CHR$C13)THEN790ELS 
EIFB*=CHR*C30)THEN330ELSE840 
850 '******* ****************** ******** * 
860 '* VITESSE SONORE * 

870 '********************************** 
880 COLORS:L0CATE5,23:PRINT"VITESSE SONÜ 
RE C1 a 3)":A$=INFUT$ Cl):A=VALCA*) 

890 IFA <1ÜRA> 3THEN880 

900 IFA=1THENP$="L5":PP$="L20" 

910 IFA=2THENP$="L10":PP$="L30" 

920 IFA=3THENP$-"L2Q":PP*="L40" 

930 cls : c$ c o ) = " " : c$ c 1 > =p$+ " s ï lsp" : e$ c 2 :> - 
PP$+"SIL5P":RETURN 
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*********************************** 


TRADUCTION DU MORSE 


Fa i t- pa r Ch r i s t ophe COUASNARD 


*********************************** 
CLEAR500,SiHDFFF , 4: CONSOLEO, 24: SCREENO 
4:DEFINTA-Z:PRINT CHR$ <20) 

ÜEFGRfC 0)=0,0,0 ^24,24,0,0,0: DEFGR* C 1 ) 
0,0,126,126,0,0,0 :DEFGR* (2)=16,48,126 
18,2,254,0 

DEFGR$ <3) =0,0,32,64,255,64,32,0 : A* C O 

":a*<1)=gr$co):a$(2)=gr$<1) 

'**************** **** ****** ******** 
'* DONNEES DU MORSE . * 

'**************** ****************** 


1,2,2,0,"4",1,1,l,l,2,0,"5",1,1,1,1,1.0, 
"6",2,1,1,1,1,0 

180 DATA"7",2,2,1,1,1,0,"8",2,2,2,1,1,0, 
”9” , 2,2,2,2,1,0,"0",2,2,2,2,2,0,".",1,2, 
1,2,1,2,"FIN",0,0,0,0,0,0 
190 '********************************** 
200 '* MENU * 

210 '********************************** 
220 CLS:SCREENO,4 ï LOCATE12,4:ATTRB1,1 : PR 
INT"MENU":ATTRBO,0 

230 L0C-ATE3,9: PR INT "TRADUCTION D'UNE PHR 
ASE 

240 L0CATE3,12:C0L0R3:PRINT"1"; :C0L0R7:P 

RINT" MORSE EN ALPHABETIQUE 

250- L0CATE3,lSïC0L0R3:PRINT"2"S :CQLQR7:P 

RINT” ALPHABETIQUE EN MORSE VISUEL 

260 LOCATE3,18:C0L0R3:PRINT"3"î:C0LQR7: P 


140 

DATA 

"A 

n 

i. 

2, 

0, 

0, 

0 

,0, 

"B" 

i2, 

i , 

1,1, 

0, 

0, 

II £■ Il 

,2,1, 

2, 

1 

0, 

0, 

"D 

i ,, 

2 

,1, 

1,0 

.0, 

0, 

"E", 

L 

0. 

0 , 0 

O 

o 

"F 

n 

i, 

1 , 

2, 

1 , 

0 

,0, 

"G" 

,2, 

2, 

1.0, 

0, 

0, 

"H" 

,1,1, 

1 , 

i 

0, 

0 











150 

DATA 

" I 

// 

1, 

11 

0, 

0 , 

Cî 

,0, 

#/ J II 

, 1 , 

2 , 

2,2, 

0, 

0 , 

» x » 

,2,1, 

2, 

0 

0, 

0 , 

"L 

a 

1 

,2, 

1,1 

,0, 

0, 

"M" , 

2 

2, 

0 , 0 

, 0 , 0 , 

"N 

" 

2 , 

11 

0, 

0, 

0 

, 0, 

"0" 

,2, 

2 , 

2,0, 

0, 

o, 

"P" 

1,2, 

2, 

1 

0, 

0 











160 

DATA 

"Q 

// 

2 J 

2, 

1, 


0 

, 0, 

"R" 

,1, 

2, 

1,0, 

0, 

0, 

n Cj tt 

,1,1, 

1, 

0 

0, 

0 , 

"T 

" t 

2 

,0, 

O 

O 

,0, 

0, 

"U" , 

1, 

1. 

2,0 

i 0 ,0 , 

"V 

" 

1, 

1 , 

1 , 

2 

0 

iO, 

"W" 

, 1 , 

2, 

2,0, 

0, 

0, 

"X" 

,2,1, 

1, 

V 

0, 

0 











170 

DATA 

"Y 

tt 

Z j 

11 

2, 

-•? 

0 

, 0, 

ff ~p tt 

1 ^ 1 

2 

1,1, 

0, 

0, 

" ! " , 

,1,2, 

2, 

Z 

Z ; 

o, 

" 2 

" ( 

1 

, 1 , 

2 , 2 

i 2, 

0, 

tt +3 il 
- 1 

11 

1, 


RINT" ALPHABETIQUE EN MORSE SONORE 
270 A$=INKEY$:A=VAL(A$): IFAC10RA>5THEN27 
OELSEONA G0T0320,680,850 
280 G0T0270 

290 '********************************** 
300 '^TRADUCTION MORSE -> ALPHABETIQUE* 
310 '********************************** 
320 cls:G 0SUB41o: l=o:p=o: fori=0T09:mm* ci 
NEXT 

330 LOCATEO, 4: COLOR,6:PRINT"VALIDATION" : 
L0CATE30,4:PRINT" MENU 
340 LOCATEO,23îCOLOR,7:PRINT"POINTEZ LES 
CASES AVEC LE CRAYON OPTIQUE"; 

350 PENO;C0,0)-C72,24):PEN1;< 72,0)-<152, 


222 










24 ) : PEN2 5 C 1 s 2,0)-C 232,24 > : PEN3 5 C 232, O ) - C 
312,24)îGOT0470 

360 IFPTRIG=-1THEN0NPENG0T0420,430,440,4 

50ELSE360 

370 G0T0360 

380 IFLENCMM*CL>)=30THENL=L+1 

390 MM$ ( L ) =MM* C L > : L0CATE5,15+LT2: CÜLO 

RO,4: PRINTMM* CL):G0SUB410:G0T0470 

400 ATTRB 1,1: COLORO, 7 : M*=M$+A$ : P=P+1 : IFP 

=7THEN470ELSEL0CATE15,8: PRINTM*:ATTRBO,O 

:G0SUB41O:G0T0360 

410 BOX F C 0,0)-C 9,3)A* C 0),0,7:B0XFC10,0)- 
C13,3)A* C1),0,7:BOXFC 20,0)-C 29,3)A$< 2),0 
,7:BOXF < 30,0)-C 39.3)GR$C 2),0,7:RETURN 
420 BOXFC0,0)-C9,3)A*C0),0,1 : IFP=OTHENA$ 
=" ":G0T0380ELSE460 

430 BOXFC10,0)-C19,3)A*C1),0,l:A<P)=l:A* 
=A*C1):G0T0400 

440 BOXFC20,0)-C 29,3)A*C 2),0,1 : A C P)=2:A* 
=A*C 2):GGT0400 

450 BOXFC 30,0)-C 39,3)GR* C 2),0,1 :G0f0220 
460 READA$,A,B,C,D,E,F:IFA*=”FIN"THENA*= 
"":G0TÜ470ELSEIFA=A C 0)ANDB=AC1>ANDC=AC2) 
ANDD=AC 3)ANDE=A C 4 > ANDF=AC 5)THEN380ELSE46 

0 

470 RESTGRE:LOCATE15,8:ATTRB1,1 :COLORO,7 
: PR I NT SPC C 6) : ATTRBO , 0: M$=" " 

480 p=0:ACO)= 0 :AC 1)=0: A C 2)=0: A C 3)=0: A C 4) 
50: A C 5)=0:GÛSUB410:G0TQ360 
490 J T T T T T T T T: T T T T T T T * T T T T *********** T T T 
500 '* PRISE DU TEXTE ALPHABETIQUE * 

510 ' TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 
520 CLSIATTRB1,1 :COLORO,4:L0CATE9,2:PRIN 
T"TRADUCTION":ATTRBO,0 

530 BOXFC0,5)-C39 1 11>” ", ,6:L=0:A* = "”: FO 
RI =0T02 : MM* C I ) ■= " " : NEXT 

540 LQCATE4,15:COLORO,4: PRINT”TAPEZ VOTR 
E TEXTE, ET LORSQU'IL”:LOCATE2,17:PRINT" 
SERA TERMINE, APPUYER SUR LA TOUCHE 
550 LOCATE2,19:C0LÜR4,3: PRINT"ENTREE"3 :C 
OLORO,4: PRINT". POUR LE CORRIGER, APPUYE 

560 LÜCATE2,21 : PRINT"SUR LA TOUCHE " ; : CO 
LORO,7:PRINTGft*C3); :COLORO,4:PRINT” ET S 
UR "; :COLORO,7: PRINTGR$C2); 

570 COLORO,4: PRINT" POUR":L0CATE2,23: PRI 
NT"REVENNIR AU MENU.":G0TÜ640 
580 A*=INPUT$ C1):AA=ASC C A*):IFAA=8ANDLEN 
C MM* C L))>OTHENMM*C L)=LEFT*C MM* CL),LEN C MM 
* C L}>-l):G0T0640 

590 1FAA=8ANDLENCMM*CL))=OANDL>OTHENL=L- 
1 : MM*C L)=LEFT*C MM$CL),LENC MM$C L))-l):GüT 
0640 

600 1FAA=13THENRETURNELSEIFAA=30THEN220 
610 IFAA<46ÜRAA>900RAA=470RCAA>57ANDAA<6 
5)THEN580 

620 ÏP'LENC MM*C L) ) =38ANDL<2THENL=L+1 
630 ÏP'LENC MM*C L) ) <38THENMM*C L) =MM* CL) +A$ 
640 COLORO,7:LOCATE1,6+LT2:PRINTSPCC 38): 
LOCATE1,6+LT2: PRINTMM*CL):GOT0580 
650 ' T T T T T T T * T T T * T T T T * T T T T T T T T * T TT T T T * T 
660 *^TRADUCTION ALPHAB.->M0RSE VISUELS 
670 J TTTT TT TTTTTTTTTTTTTT TTTTTTTTTTTTT T 
680 GQSUBS20:BOXFC 0,5>-C 39,24)" ",,3:CGN 
S0LE6,24:CLS:CONSOLEO,24:L=0:P=3:Q=7:COL 


□RO,5:PS=0 

690 LOCATE1,5: PRINTSPCC 38):LOCATE1,5: PRI 

ntmm* c o):A=2:B=1 :c=2:D=1 :E=2:F=o:G=o: col 

ÜRO,6:GOT0740 

700 P=P+7:IFP“38THENP=3:Q-Q+2 
710 G=G+l:IFG>LENC MM*CL))THENIFG<40ANDLE 
N C MM* C L+1)>=OTHENLQCATEP,Q:COLORO,6: PR1N 
TA*Cl)?A*C2); A*Cl);A*C2); A*Cl); A*CO):PS- 
1 :GOT0750ELSE750 

720 B*=MID* C MM* C L),G,1): RESTORE:COLORO,7 
730 READA* ,A,B,C,D,E,F: IFA*OB*THEN730 
740 LOCATEP,Q:PRINTA*CA.) 3 A*CB) ;a$co ;a*c 
D);A*C E);A*C F):GQTÜ700 

750 CÜLOR1,7:LOCATES,23: PRINT"VOULEZ-VOU 
S L'IMPRIMER ? 

760 A*=INPUT*C1): IFA*="O"THENL0CATE8,23: 
PR I NTSPC C 24 ) : SCREENPRINTELSEI FA*=''N" THEN 

770ELSE760 

770 BOXFC 0,5 ) --C 39,24) " " , , 3: CONSOLES, 24 : 

CLS: CONSOLEO’, 24: L-L+l 

780 ÏP'LENC MM*C L ) ) =0ANDPS=0THEN710 

790 IFLENC-MM* C L ) ) =OANDPS= 1THENC0LQR4,4 : G 

0T0220 

800 COLORO,5:LOCATE1,5: PRINTSPC C 38):LOCA 
TË1,5: PR I NTMM* CL) 

810 G=0:p=-4:Q=7:COLORO,7:G0T0700 
820 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 
830 'TTRADUCTION ALPHAB.->MORSE SONORET 
340 ' T T T T T T T T T T T T: T T T T T T T T T T T T T T T T T T T T T T 
850 G0SUB520:BOXF <0,13>-C 39,24 >" ", ,4:L= 
0:P=3:Q-7:GOSUB1000:COLORO,5:PS-0 
860 L0CATE4,15:COLORO,4: PRINT"TAPEZ SUR 
LA TOUCHE "ï:C0LQR4,3:PRINT"ENTREE”; : COL 
□RO, 4 

870 PRINT”,":L0CATE4,17:PRINT"SI VOUS VO 
ULEZ REENTENDRE”:LOCATE4,19: PRINT”VOTRE 
TEXTE. ET TAPEZ LA” 

880 L0CATE4,21 : PRINT"TOUCHE "; :C0L0R7,0: 
PRINTGR$C2); :COLORO,4:PRINT” POUR REVENN 
IR AU”:LOCATE4,23:PRINT”MENU. 

890 a=2:b=i:C=2:d=i:e=2:f=o:g=o:l=o:goto 
930 

900 G=G+1 : IFG>LENC MM* CL))THEN940 
910 B$=MID*C MM*C L),G,1): RESTORE 
920 READA*, A, B, C,D,E,FS IFA*OB$THEN920 
930 PLAY”L1OP"+C$ C A)+C* C B)+C*CC)+C$ C D > +C 
* C E)+C* CF):G0T0900 

940 A=lïB=2:C=1:D=2:E=1:F=0:IFPS-OTHENPS 
= 1 :G0T0930 

950 A*=INPUT*C1):IFA*=CHR*C13)THENPS=0:G 
ÜT0890 

960 IFA*=CHR* C 30>THEN220ELSE940 
970 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 
930 'T VITESSE SONORE T 

990 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 
1000 CQL0R5:LQCATE5,23:PRINT"VITESSE SON 
ORE Cl a 3)":A*=INPUT$C1):A=VALC A*) 

1010 IFA <1ORA >3THEN1000 

1020 IFA=1THENP*-"L5":PP*="L20" 

1030 IFA=2THENP*=”L10”:PP*=”L30” 

1040 IFA=3THENP*=”L20”:PP*=”L40" 

1050 C*CO)="”:C*C1)=P*+"SIL5P":C*C2)=PP* 
+”SIL5P" 

1060 LOCATE5,23: PRINTSPC C 25):RETURN 





THOMSON 


PUISSANCE 4 

Vous indiquez votre choix parmi sept colonnes. L'ordinateur 
valide et joue. Deux niveaux de difficulté, et cinq 
manches. Des flèches visualisent les colonnes examinées. 


1 'PUISSANCE IV /MOS - T07 

THEN T=-10 


2 'SOTIROPOULOS C. 

309 

GQTO600Ü 


3 -■ 

310 

IF T<M THEN 312 

ELSE M=T 

4 CLS : CLEfiR ^ 1*0 * FOR 1 = 1 Tü PEEKX 8241 > : RLE 

311 

XM=X 


fl=RND^ NEXT»SCREEN8, 1. 1= LOCRTE0, Q ,0 

312 

NEXTX 


10 DIMR<5,10)/NC20) 

313 

X=XM 


20 N< 0 )=. 733 : N< 1 >=.01 *N<2>=. 1 = NC3>=10* NC 

350 

GOSUB1100 


4 >=1000 : N<6 >=1 : NC 11>=100 : N<16 )=1E4 

351 

LOCRTE0•2 : PRINT"JE JOUE EN ";X 

30 GO3UB2000 

352 

Y=5-KX X > 


100 GOSUB1000 

353 

ne y .• x >=5 


102 LOCRTE0,2 = PRINT"OBJECTIF ALIGNER 4 P 

354 

K< X )=K< X >+1 


IONS 11 j '■ LOCRTE0,3 ! PRINT"NIVEAU <1,2> ?"p 

355 

Z$=MÜS 


X$=INPUT*<1> = NIVERU=RSC<X*>-48 :G0SUB1100 

356 

GOSOB1300 


: LOCRTE0,3 : PRINT"TIRAGE RU SORT DU 1ER J 

357 

e*i 


ÛUEUR" : LOCRTE0.- 23 : PRINT"NIVERU=" ; 5 IF NIV 

358 

GOSUB400 


EflUO 1 THEN PRINT "a"; ELSE PRINT NI VER 

359 

GOTO200 


Ni 

400 

* REFLEXION 


103 I=INT<RLER*2+1> 

401 

L0CRTE3*X-2,4 = PRINT" AM 

105 IFI< >1 THEN 300 

402 

G<X>=0 = T=0 


200 * JOUEUR JOUE 

404 

Y=5-KCX > 


201 C=C+1 i3IEV.=590 

405 

IFYO0 THEN 430 


202 IF C=36 THEN 500 

406 

T=-l 1 


203 G0SUB1100 

407 

GOTO490 

- 

204 LOCRTE0,1:PRINT"R VOUS DE JOUER" = LÜC 

430 

IF Y=5 THEN436 


RTE0 > 2 PR INT"NO DE COLONNE ?" 

431 

S=0 


205 Z$=INKEY$ : IFZ$="" THEN 205 

2Ô7 X=RSCCZ$ >-48 

m 

Pl^flJjJB >?SIEX= 

: 0 

208 IF X<1 OR X>7 THEN 220 

434 

NEXT 


209 IFK<X>*5 THEN 230 

435 

GOSUB1200 


210 GOSUB1100 

436 

IFY=1 THEN 442 


211 LQCRTE0.' 2 : PRINT"OK EN ";X 

437 

3=0 


212 Y=5-KX X > 

438 

F0RJ=2 TO 5 


213 RC Y ; X )= 1 

439 

S=S+R< J,X> 


214 KXX)=KC X >+l 

440 

NEXT 


215 Z*=HUM$:SIE*=-590*.566 

441 

GOSUB1200 


216 GOSUB1300 

442 

IFX>4 THEN 451 


218 IF GCX>=1 THEN 600 

443 

F0R0=1 TO X 


219 GOT0300 

444 

S=0 


220 LÛCRTE0;3 : PLRY"DODO u : PRINT"ENTRE 1 E 

445 

FORI=D TO D+3 


T 7 SVP" 

446 

S=S+R<Y,I> 


221 GOTO205 

447 

NEXT 


230 LOCRTE0,3 = PLRY"DODO"= PRINT"COLONNE C 

448 

GOSUB1200 


OMPLETE.REJOUEZ" 

449 

NEXT 


231 GOTO205 

450 

G0T0458 


308 •' ORD JOUE 

451 

F0RD=X-3 TO 4 


301 C=C+1 

452 

S=0 


302 IFC=36 THEN 500 

453 

F0RI=D TO D+3 


303 GOSUB1100 

454 

S=S+R<Y,I> 


304 LOCRTE0/2 : PRINT"R MOI DE JOUER"«LÛCft 

455 

NEXT 


TE0■3 : PRINT"JE REFLECHIS" 

456 

GOSUB1200 


305 B=0 : M=-10 : ON ERROR GOTO5000 

457 

NEXT : SIEX=-1 


306 F0RX=1 TO 7=IF NIVEAU»1 THEN GOSUB 4 

458 

fi=X+Y 


00 : GOTO310 

459 

IFY=5 OR R>8 OR 

R<5 THEN466 

307 GOSUB400 ; TT=T : IF R(Y , X-1>+fi<Y+1 > X-2> 

460 

S=0 


+fl<Y+2#X-3)=3 THEN T=-10 

461 

F0RJ=1 TO 4 


308 IF fl<Y,X+1>+fi<Y+1,X+2>+fi<Y+2,X+3>=3 

462 

I=R-J 



224 





463 S=S+ACJ,I> 

464 NEXT 

465 GOSUB1200 

466 IFY*1 OR R<6 OR fl>9 THEN 473 

467 S=0 

468 F0RJ=2 TO 5 

469 I =R—-J 

470 S=S+ACJ,I> 

471 NEXT 

472 GOSUB1200 

473 ft=X-Y 

474 IFY=5 OR fl<0 OR fl>3 THEN 481 

475 S=0 

476 FORJ=1 TO 4 

477 I=A+J 

478 S=S+ACJ,I> 

479 NEXT 

480 GOSUB1200 

481 IFY=1 OR A<-1 OR fl >2 THEN490 

482 S=0 

483 F0RJ=2 TO 5 

484 I=A+J 

485 S=S+ACJ,I> 

436 NEXT : GO8UB1200 
490 RETURN 

500 EGALITE 

501 GOSUB1100 

502 LOCATE0,2=PRINT"EGALITE,VOUS VOUS DE 
FENDEZ BIEN" 

503 FORTP=l TO 3000 : NEXT 

504 G03UB1000 

505 GÜTÜ200 

600 'JOUEUR GAGNE 

601 GOSUB1100 

602 LOCATE0,2 = PRINT"0K VOUS AVEZ GAGNE"= 
FOR TP=i TO 3 : PLAY"DO"=PLAY"REMI"=NEXT 

603 RC 1 )=RC 1 >+l = IF RC 1 )=*5 THEN CLS=ATTRB 
1,1'LOCflTES,10=PRINT"GAGNE ";R<1>"-"RC2> 
;= ATTRB0,0 = END 

605 SOSUB1000 : GOTO300 

700 * MOS GAGNE 

701 GOSUB1100 

702 LOCATE0,2 = PRINT"DESOLE,JE JOUE EN 

X 

703 Z*=MO$ 

704 Y=5-K<X > 

705 GOSUB1300 

706 LOCATE0,3 = PRINT"ET JE GAGNE!"=FOR TP 
= 1 TO 3 = PLAY " MILASI " = NEXT = PLAY " DOREMIF AS 
OLRSIPMILASI" 

708 RC 2 )=R< 2 >+l = IF RC2>=5 THEN CLS = ATTRB 
1,1=LÜCRTE5,10 = PRINT"PERDU "jRC2>"-"RC1> 
;=ATTRB0,0 = END 

709 GOSUB1000 = GOTO200 

1000 'TRACE GRILLE 

1001 FQRJ=1 TO 7 

1002 GC J >=0 = KC J )=0 : C=0 

1005 FORI=l TO 5 = flC I , J >*0 1 NEXTI,J = LOCATE 

0,0 

1011 COLOR7,0 = PRINT" PUISSANCE IV 

ii. 

1012 COLOR0,7 = LQCRTE0J5 1 PRINT" 1 2 3 


4 5 6 7"= HR$=CHR*C127 >+" "+CHR$(12?> 

+" "+CHR$<127 )+" "+CHR$C127 >+" "+CHR$ 

<127 >+" "+CHR$<127 >+" "+CHR$C127 >+" " 

+CHR$C127 > 

1013 FOR CR=1 TO 22 : PR I NTCHR$C 127 >= NEXT 
: X1 =0 Y1 =7 

1014 FORI = l TO 5 = LOCATEX1,Y1 

1015 PRINTHR* 

1016 PRINTHR* 

1017 FORCR=l TO 22 : PRINTCHR$C127 >; NEXT 

1018 Yl=Yl+3=NEXTI 

1020 LÜCRTE23,11 = PR INT "SCORE 11 ; =LÜCATE23, 
14 = PRINT"VOUS" : LOCATE30,14 = PRINTRC1> = LOC 
ATE23,17 = PRINT"MOI"= LOCATE30,17 = PRINTRC2 

> 

1021 RETURN 

1100 •'EFFACEMENT 

1101 FORTP=l TO 2000=NEXT-FORI=l TO 4 

1102 LOCATE0,1=PRINTCHRSC 24 > = NEXT = RETURN 

1200 'ANALYSE 

1201 IFS=3 THEN GCX>=1 

1202 IFS=15 AND B=0 THEN 700 

1203 T=T+NCS+1> 

1204 RETURN 

1300 'AFFICHE PION 

1301 L0CATE3*X-2,4+3*Y=PRINTZ$; 

1302 RETURN 

2000 DEFGR$C1>=0,0,7,15,31,63,63,63=DEFG 
R$< 2 >=0,0,224,240,248,252,252,252 = DEFGR$ 
< 3 >=63,63,63,31,15,7,0,0 = DEFGR«< 4 >=252,2 
52,252,248,240,224,0,0 
2100 DEFGR5C5>=0,0,7,8,16,32,32,32 = DEFGF: 
*C6 >=0,0,224,16,8,4,4,4 = DEFGR5C7 >=32,32, 
32,16,8,7,0,0 = DEFGR$C 8 >=4,4,4,8,16,224,0 
,0 

2200 MO$=GR*C1>+GR$C 2 >+CHR*C 8 >+CHR*< S >+C 
HR$C10 >+GR$C3 >+GR*C 4 > 

2300 HUM$=GRïC5 >+GR$C 6 >+CHR$C S >+CHR$C 8 >+ 
CHR*C10 >+GR*C 7 >+GRSC 8 > 

2400 RETURN 

5000 IF T=-10 THEN RESUME NEXT 
5010 T=TT=RESUME NEXT 

6000 IF AC Y-1,X+1>+A< Y-1,X+2 >+A<Y-1,X+3> 
=3 THEN T=-10 

6010 IF AC Y-1,X-1>+A< Y-1,X-2 >+R< Y-1,X-3 > 
=3 THEN T=-10 

6015 IF AC Y, X-l>+A< Y-2,X+l>+AC Y-3,X+2>=3 

THEN T=-l0 

6018 IF AC Y,X+l>+AC Y-2,X-l>+A< Y-3,X-2 >=3 
THEN T=-10 

6020 IF AC Y-1,X-1>+A<Y-1,X-2 >+ACY-1,X+1> 
=3 THEN T=-10 

6025 IF fl< Y-l,X-l>+AC Y-l,X+l>+AC Y-l,X+2 > 
=3 THEN T=-10 

6027 IFACY+l,X-2 >+ACY,X-l>+AC Y-2,X+1>=3 
THEN T=-10 

6029 IFAC Y+1,X+2 >+AC Y,X+1>+A< Y-2,X-1>=3 
THEN T=-10 

6030 GOTO 310 

6040 FOR IX.= l TO 10 

6050 IF AC Y-l >0-10 THEN ACY-l>=R<Y-2> 
6060 NEXT 
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THOMSON 


PROCESSEUR 

Si vous êtes maniaque, ce « jeu » vous permettra d'étudier 
le mode d'action des opérantes sur les registres. Bon travail ! 


10 ’ ****M05**** PROCESSEUR ****1105*:***** 
20 •' 

30 ■’ SOTIROPOULOS C. 

40 •' 

50 ■'EXEC &H93F4 avec crayon optique 

'EXEC &H93FR clavier <touches Ci - 9> 
7ü 'Faire RUN Pour implantation 
30 •' Adresses ‘&H9300-&H9FE1 
50 •' 

10O CLEflR,&H92FF•AD=&H930O 
110 ON ERRÜR GOTO 160 

120 FOR 1=1 Tu 23 : REND =fl=fi+V 

AL( "&H"+X$ > : NEXT 

130 RERDX$ N1=INT<fi/256> : N2=fi-N1*256=IF 
VfiL<"&H"+X5X >N2 THEN PRINT"CS ERROR IN 
" ; = R=PEEK< &H2130 >*256+PEEK< &H2131 > = fi=fi+3 
= PRIMT<PEEK<R >*256+PEEK<fi+1>-10 > : END 
140 B=LEN<R$ >/2-l : FOR 1=0 TO B 
150 POKE RD+I,VRL<"&H 1 "+MID4<R$,2*1+1,2>> 
:HEXT ! IF E=4 THEN END EL3E fi$="":fi=0 = AD= 
RD+B+1=GOTO120 
160 E=4•RESUME 140 

170 DRTA4C .• 53,4C, 00,4C, 53,52,00, 52,4F, 4C 
,00,52,4F,52,00,4E,45,47,00,43,4F,4D,75 
130 DfiTfiOO,41,4E,44,00,4F,52,00,45,4F,52 

,90,40.44,0003, 04 ,04,00,00,00,00 , 00.. F5 

190 DRTfl00,00,09,00,00,00,00,00,00,FF,00 
,52,45,47,00,42,49,4E,00,48,45,58,41,E5 
200 DfiTfiOO,44,45,43,00,49,4E,53,00,50,43 
,O0,43,43,00,44,50,00,53,00,55,00,58,63 
210 DRT000,59,O0,41,00,42,00,44,00,44,65 
,63,61,6C,61,67,65,20,67,61,75,63,68,4E 
220 DRTR65,00,44,65,63,61,6C,61,67,65,20 
,64,72,6F,69,74,00,52,6F,74,61,74,69,20 
230 DRTR6F,6E,20,67,61,75,63,68,65,00,52 
,6F,74,61,74,69,6F,6E,20,64,72,6F,69,88 
240 DOTA74,65,00,43,6F,6D,70,6C,65,6D,65 
,6E,74,20,61,20,32,00,43,6F,6D,70,6C,BB 
250 DRTR65,6C«, 65,6E, 74,26,61,20,31,00,45 
,54,20,6C,6F,67,69,71,75,65,00,4F,55,3E 
260 DRTR20,6C,6F,67,69,71,75,65,00,58,4F 
,52,20,6C,6F,67,69,71,75,65,00,43,68,DO 
270 DRTR61,72,67,65,20,72,65,67,69,73,74 
,72,65,00,7F,9F,E0,7E,95,06,7F,9F,E0,39 
280 D0T073,9F,E0,7E,95,09,C6,1B,3F,02,C6 
,20,3F,02,F6,93,26,CR,40,3F,02,C6,1B,32 
290 DOTASF,02,C6,20,3F,02,F6,93,27,CR,50 
,3F,Q2,C6,IB,3F,02,F6,93,28,CR,60,3F,RF 
300 DRTR32,C6,18,3F,02,F6,93,26,CR,40,3F 
, 02, C 6 , 1B, 3F, 02, F6,93,27, CR, 50, 3F .• 82,4B 
310 DRTRB6,93,26,F6,93,27,4C,8fl,40,CR,40 
,34,04,C6,1F,3F,02,E6,EO,3F,02,1F,89,4C 
320 DRT03F,82,C6,14,3F,02,3F,16,24,FC,7E 
,ES,DF, 0 F,42,3E,9D,RE,9F,5E,5F,9E,4E,08 
330 DRTR7E,D9,C1,F6,93,26,BD,E6,86,F6,93 
,27,7E, E 6 ,89, E 6 ,80,27,04,3F,02, 20 ,F8,77 
340 DRTR39,10,8E,93,2R,3F,0R,5D,27,FB,C1 


,03,27,18,Cl,30,25,F3,Cl,39,23,08,Cl,4E 
350 DRTR41,25,EB,C1,46,22,E7,E7,RO,3F,02 
,4R,26,EO,39,32,62,16,02,67,7F,93,26,FD 
360 DATAC6,18,F7,93,27,BD,94,73,C6,0C,3F 
,02,C6,03,F?,93,26,5C,F7,93,27,F7,93,76 
370 DRTR28,BD,94,03,10,DE,19,6F,E2,1O,DF 
,72,7E,C3,7D,34,76,C6,17,F7,93,26,5C,86 
380 DRTRF7,93,27,17,FF,8fl,C6,07,F7,93,26 
,C6,01,F7,93,27,C6,04,F7,93,28,17,FF,D8 
390 DRTR08,35,F6,7C,93,27,7C,93,27,16,FF 
,3C,BD,E9,00,C6,14,3F,02,7F,93,26,C6,RF 
400 DRTR18,F7,93,27,17,FF,5B,C6,OC,3F,02 
,8E,93,26,6F,80,8C,93,39,26,F9,C6,03,C3 
410 DRTRF7,93,26,5C,F?,93,27,F7,93,2B,17 
,FE,CE,16,00,30,17,00,6E,C6,27,F7,93,94 
420 DRTR26,C6,03,F7,93,27,06,30,34,04,17 
, FE, F6,35,04, 3F, 02,7C, 93,27,7C, 93,27, BF 
430 DRTR5C,C1,3fl,26,EC,C6,03,F7,93,26,5C 
,F7,93,27,17,FE,C5,39,7F,93,26,7F,93,4C 
440 DRTR27,BD,94,42,8E,93,39,17,FF,08, BD 
,94,DB,7F,93,27,C6,0B,F7,93,26,17,FE,2D 

459 DfiTftBD,8D,02,20,OB,C6,07,F7,93,27,7F 
,93,26, 16, FE,98,SE,93, 3D,17, FE,E5,C6,F? 

460 DRTR17,F7,93,26,7F,93,27,17,FE,9D,8D 
,02,20,04,C6,01,20,DE,8E,93,41,17,FE,A1 
470 DRTRCC,C6,1E,F7,93,26,7F,93,27,17,FE 
,84,8D,02,20,05,06,02,16,FF,C4,8E,93,RS 
480 DRTR46,17,FE,B2,C6,24,F7,93,26,7F,93 
,27,17,FE,6A,C6,03,F7,93,26,C6,04,F7,99 
490 DRTR93,27*17,FE,47,8Ev93,4ft,17,FE,94 
,7F,93,26,C6,03,F7,93,27,17,FE,4C,8E,CB 
500 DRTR93,4E,17,FE,83,17,FE,FE,8E,93,51 
,17,FE,7fl,17,FE,F5,8E,93,54, 17,FE,71,92 
510 DRTR17,FE,EC,8E,93,57,17,FE,68,17,FE 
,E3,8E,93,59,17,FE,5F,17,FE,DR,8E,93,EC 
520*DRTR5B,17,FE,56,17,FE,DI,8E,93,5D,17 
,FE,4D,17,FE,C8,SE,93,5F,17,FE,44,17,59 
530 DRTRFE,BF,8E,93,61,17,FE,3B,17,FE,B6 
,8E,93,63,17,FE,32,C6,24,F7,93,26,C6,85 
540 DRTR03,F7,93,27,17,FD,E8,8E,93,00,17 
,FE,1F,17,FE,9fl,SE,93,04,17,FE,16,17,IB 
550 DRTRFE,91,8E,93,08,17,FE,QD,17,FE,88 
,8E,93,0C,17,FE,04,17,FE,7F,8E,93,10,82 
560 DRTR17,FD,FB,17,FE,76,8E,93,14,17,FD 
,F2,17,FE,6D,8E,93,18,17,FD,E9,17,FE,R2 
570 DATR64,8E,93,IC,17,FD,E0,17,FE,5B,8E 
,93,1F,17,FD,D7,17,FE,52,8E,93,23,17,F2 
580 DRTRFD,CE,3D,0B,7D,9F,EO,27,03,17,FE 
,7D,16,00,58,17,06,F3,17,07,RR,17,03,83 
590 DRTASC,17,07,10,17,07,08,17,08,70,17 
,07,15,17,07,DO,17,08,75,17,07,19,17,02 
6Ü0 DRTR07,D7,17,08,79,17,07,2D,17,07,EF 
,17,08,7R,17,97,2E,17,07,FO,17,08,7E,5E 
610 DATAI7,07,2F,17,07,Fl,17,08,82,17,07 
,31,17,07,F2,17,08,86,17,07,36,17,07,73 
620 DRTRFB,17,OS,80,17,07,3B,17,08,04,17 
,08,92,39,7D,9F,EO,10,27,00,4fl,3F,0fi,D2 
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DATA5D, 27, FB, Cl , 03,10.- 27, FD, 87, C1,30 
i 27,00 -D2,Cl,31,10,27,00,F5,Cl,32,09 
DATA10,27,01,1R,C1,33,10,27,01,3F,Cl 
. 10,27,01,84,Cl,35,10,27,01,89,Cl,C6 
DFÎTA36,10,27,01, RE, C 1,37,10, 27,01, D3 
-33,10,27,01,F3,Cl,39,10,27,02,1D,98 
DATAI6,FF,BS,17,FC,EE,34,30,BD,9D,6C 
- 30,8C,FF,FF,27,fl©,8C,00,64,10,23,CF 
DflTflFD,32,8C,01,18,25,94,10,8C,00,14 
18E,10,3C,00,23,10,23,00,70,10,3C,EE 
DBTFI00, 33,10,23,00,91,10,80,00,43,10 
R0,04,10,8C,00,53,10,23,00,D7,10,C6 
DATA8C,00,63,10,23,00,Ffl,10,8C,00,73 
23,01,IP,10,30,00,83,10,23,01,40,0F 
DATAI©,80,00,93,10,23,01,63,10,80,0© 
10,23,01,86,10,80,00,B3,10,23,01,42 
DATflfl9,16,FF,38,7F,93,26,06, 17, F7,93 
BD, 94,42, C6, 11,3F, 02,C6> 18,3F, 82,09 
DATftBD,94,DB,7F,93,26,06,18,F7,93,27 
94,42,06,18,3F,82,8D,EC,8E,93,65,24 
DATABD,94,7F,8D,D1,8E,93,00,BD,94,7F 
0fl, 5D, 27, FB, 01,03,10,27, FE, FB, 01 ,-9C 
DflTfl41,10,27,01,A3,Cl,42,10,27,0t,D7 
E7,BD,97,F1,8E,93,75,BD,94,7F,BD,9D 
DATA97,DE,8E,93,04,BD,94,7F,3F,0fl,5D 
FB,01,03,10,27,FE,D0,Cl,41,10,27,34 
DRTR01,EC,C1,42,10,27,01,F3,20,E7,BD 
Fl,8E,93,84,BD,94,7F,BD,97,DE,8£,9C 
DATA93,08,BD,94,7F,3F,0fl,5D,27,FB,C1 
10,27,FE,A5,Cl,41,10,27,01,DB,Cl,A7 
DATA42, 10,27.. 01, E3,20, E7, BD, 97, F1,8E 
94, BD, 94,7F, BD, 97, DE, 8E, 93,0C, BD, 4A 
DflTA94,7F,3F,0fl,5D,27,FB,Cl,03,10,27 
7fl,C1,41,10,27,01,CC,Cl,42,10,2?,8E 
DATA0Î,D4,20,E7,BD,97,Fl,8E,93, A4, BD 
7F, BD, 97, DE, 8E, 93, 10, BD, 94,7F, 3F, 28 
DATR0A,5D,27,FB,C1,03,10,27,FE,4F,Cl 
10,27,01,BD,Cl,42,10,27,01,C5,20,E8 
DRTRE7,BD,97,F1,8E,93,B3,BD,94,7F,BD 
DE,8E,93,14,BD,94,7F,3F,0A,5D,27,D4 
DflTflFB,Cl,03,10,27,FE,24,Cl,41,10,27 
RE,Cl,42,10,27,01,B6,2©,E7,BD,97,4C 
DRTAF1,8E,93,C2,BD,94,7F,BD,97,DE,8E 
18,BD,94,7F,3F,0A,5D,27,FB,C1,03,6B 
DRTR10,27,FD,F9,Cl,41,10,27,01,9F,Cl 
10,27,01,BC,20,E7,BD,97,Fl,SE,93,6fi 
DRTRCD,BD,94,7F,BD,97,DE,8E,93,1C,BD 
7F,3F,0R,5D,27,FB,C1,03,10,27,FD,9C 
DfiTACE,01,41,10,27,01,Bfl,Cl,42,10,27 
D7,20,E7,BD,97,F1,8E,93,D8,BD,94,6A 
DRTA7F,BD,97,DE,8E,93,1F,BD,94,7F,3F 
5D,27,FB,Cl,03,10,27,FD,A3,Cl,41,26 
DATAI0,27,01,D5,C1,42,10,27,01,F2,20 
BD,97,F1,8E,93,E4,BD,94,7F,BD,97,AF 
DRTADE,8E,93,23,BD,94,7F,3F,8A,5D,27 
01,03,10,27,FD,78,Cl,41,10,27,01,64 


DRTRF0 

, 89,Cl, 
DRTA03 
, B6,93, 
DATAB7 
,BD,9D, 
DRTRF5 
, 4D,BD, 
DATR02 
, F7,93, 
DRTA58 
, 4D,BD, 


i,C1,42,10,27 
59,10,27,02, 
!, 15,01,44, 10 

37, F6,93,30, 
,93,37,F7,93 
68~BD,9E,31.~ 
,BD,9E,95,BD 
9F,19,BD,9F, 

, F6,93,38,B6 

38, B7,93,30, 

, BD ,9D,68,BD 
9F,07,BD,9E, 


',02,0A,C1,58,10,27 
CE,Cl,55,10,27,7F 
1,27,02,12,20, CF, 3F 
1F,9R,48,1F,A9,9R 
:,30, BD, 9D, 37, BD, 9D 
BD,9D,DA,BD,9E,5B 
', 9F, 8C, BD, 9F, 40, BD 
AA,16,FD,18,3F,F6 
,93,30,1F,8A,58,1F 
BD,9D,54,BD,9D,48 
,9E,3F,BD,9D,DA,BD 
95,BD,9F,19,BD,15 


970 DATA9F,9B,BD,9F,40,BD,9F,AA,16,FC,DE 
,3F,02,B6,93,37,F6,93,30,1F,9A,44,20,63 
980 DATA8A,3F,©2,F6,93,37,B6,93,30,1F,8A 
, 54,20, B7, 3F, 02, B6,93,37, F6,9330, 1F, 71 
990 DÂTA9A,49,16,FF,6F,3F,02,F6,93,38,B6 
,93,30,1F,SA,59,16,FF,9B,3F,02,B6,93,1E 
1000 DATA37,F6,93,30,1F,9A,46,16,FF,53,3 
F,02,F6,93,38,B6,93,30,1F,8A,56,16,FF,E6 
1CU0 DATA7F, 3F, 02, B6,93,37, F6,93,38,1F, 9 
fl,40,16,FF,37,3F,02,F6,93,38,B6,93,30,Cl 
1020 DATA1F,8R,50,16,FF,63,3F,02,B6,93,3 

7, F6,93,30,1F,9R,43,16,FF,IB,3F,02,F6,4E 
1030 DATA93,38,B6,93,30,1F,8R,53,16,FF,* 
7,3F,02,C6,20,3F,02,86,02,BD,94,88,10,75 
1040 DRThSE, 93,2R,EC,A4,BD,9D,1F,34,02,B 
6,93,37,F6,33,30,1F,9fl,A4,E0,16,FE,ER,FE 
1050 DRTR3F,02,C6,20,3F,02,86,02,BD,94,8 

8, 10, SE, 93,2Fl, EC, R4, BD, 9D ,1F, 34,02, F6,59 
1060 DRTR93 ,.38, B6,93,30,1F, 8R, E4, E©, 16, F 
F,01,3F,02,C6,20,3F,02,86,02,BD,94,88,90 
1070 DRTR10,8E,93,2R,EC,A4,BD,9D,1F,34,0 
2,B6,93,37,F6,93,30,1F,9A,AR,E0,16,FE,2R 
1080 DRTRR4,3F 02, C6,20,3F, 02,86,02, BD, 9 
4,88,10,8E,93,2A,EC,A4,BD,9D, 1F, 34,02,07 
1090 DRTAF6, 93,38, B6,93,30,1F, 8R, Efl, EÇi, 1 
g , FE , BB , 3F , 02 , C6 , 20 , 3F , 02 , 86 , 02 , BD , 94 , BD 
1100 DRTR88,10,8E,93,2R,EC,R4,BD,9D,1F,3 
4,02,B6,93,37,F6,93,30,1F,9A,A8,E0,16,B2 
1110 DATAFE,5E,3F,02,C6,20,3F,02,86,02,B 
D,94,88,10,8E,93,2A,EC,A4,BD,9D,1F,34,BD 
1120 DRTA02,F6,93,38,B6,93,30,1F,8A,E8,E 
0,16,FE,75,3F,02,06,20,3F,02,86,02,BD,E3 
1130 DATR94,88,10,3E,93,2fl,EC,A4,BD,9D,1 
F,34,02,F6,93,30,1F,9fl,A6,E©,16,FE,IB,DD 
1140 DATA3F,02,C6,20,3F,02,86,02,BD,94,8 
8,10,3E,93,2fl,EC,A4,BD,9D,1F,34,02,B6,19 
1150 DRTfl93,30,1F,8A,E6,E0,16,FE,35,3F,0 
2,C6,20,3F,02,86,04,BD,94,88,10,8E,93, 77 
1160 DATA2R,EC,A1,BD,9D,1F,34,02,EC,fl1,B 

D, 9D,1F,1F,89,35,02,34,06,F6,93,30,1F,5D 
1170 DRTR9A,EC,El,1F,01,1F,R9,F7,93,30,B 
F,93,37,BD,9D,37,BD,9D,54,BD,9D,58,BD,40 
1180 DATA9D,68,BD,9E,31,BD,9E,F5,BD,9F,8 
C,BD,9E,3F,BD,9F,07,BD,9F,9B,BD,9E,4D,65 
1190 DATABD,9F,19,BD,9F,AA,BD,9D,DA,BD,9 

E. 95,BD,9F,40,16,FA,DD,3F,02,C6,20,3F,8E 
1200 DRTA02,86,04,BD,94,88,10,8E,93,2A,E 

C, A1,BD,9D,1E,34,02,EC,fl1,BD,9D,1F,1F,21 

1210 DATA89,35,02,34,06,F6,93,30,1F,9fl,fl 

E, E1,1F,A9,F7,93,3©,BF,93,33,BD,9D,60,BC 
1220 DATABD,9D,53,BD,9E,1C,BD,9E,E1,BD,9 

F, 72,BD,9D,DA,BD,9E,95,BD,9F,40,16,FA,©3 
1230 DRTA92,3F,02,06,20,3F,02,86,04,BD,9 

1250 DATA3©,10,BF,93,35,BD,9D,64,BD,9D,5 
8,BD,9E,26,BD,9E,EB,BD,9F,7F,BD,9D,DA,©D 
1260 DATABD,9E,95,BD,9F,40,16,FA,45,3F,0 
2■C6.20,3F,02,36 - 04,BD,94,88,10,8E,93,PD 
1270 DRTA2A,EC,A1,BD,9D,1F,34,02,EC,fl1,B 

D, 9D,1F,1F,89,35,02,34,06,F6,93,30,1F,5D 
1280 DATA9A,EE,E1,1F,A9,F7,93,30,FF,93,3 
1,BD,9D,5C,BD,9D,58,BD,9E,12,BD,9E,D7,B5 
1290 DATABD,9F,65,BD,9D,DA,BD,9E,95,BD,9 
F,40,16,F9,Ffl,3D,CD,48,43,43,48,34,02,7A 
1300 DRTR1F,98,3D,03,Rfl,E0,39,30,30,81,0 
9,23,02,80,07,39,C6,11,F?,93,27,C6,03,7A 
1310 DRTAF7,93,26,BD,94,42,C6,03,F7,93,2 
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6 , se, F?, 93,27, BD, 94,2C, C €, 3E.. 3F, 52, C6.. D1 
î 320 DR T R13 .• 20, Ê1, C6, 05, 20, DD, 06,08 , 20 , D 
5,06,0D,20,D5,06,0F,20,D1.,06,15,20,CD,FC 
î330 DRTRC6,03,F7,93,26,06,04,F7,93,27,B 
D,94,20,06,03,F7,93,26,06,05,F7,93,27,66 
1340 DRTRBD,94,42,06,20,3F,02,70,93,27,7 
0,93,27,86,93,27,31,17,26,EC,39,31,31,DB 
1350 DRTR31,31,31,31,31,31,30,30,30,30,3 
0,30,30,30,00,46,46,30,30,00,36,35,32,2F 
1360 DRTR38,30,00,5F,10,8E,9D,98,17,00,9 
0,5F,10,8E,9D,R0,17,00,94,06,03,F7,93,85 
1370 DRTR27,06,05,F7,93,26,17,F6,71,17,F 
7,B5,8E,9D,98,16,F6,R5,F6,93,30,10,8E,RE 
1380 DRTR9D,93,17,00,74,06,05,20,DE,1F,B 
9,10, 3E, 9D ,93,17,-00,67, 06,07,20, D1,1F, 8F 
1390 DRTR40,8D,02,20,12,1E,39,10,9E,9D,9 
8.17,00,54.1F,39,10,3E,9D,R0,8D,40,39,78 
ï 400 DRTRC6,09,16,FF,B4,FC,93,31,8D,E4,0 
6,08,16,FF,RR,FO,93,33,3D,DR,06,0D,16,6B 
1410 DRTRFF, R0, FC, 93,35,17, FF, CF,. 06,0F, 1 
6,FF,95,F6,93,77,10,3E,9D, 98 ,3D,1E,06,CB 
î420 DRTfill,16,FF,87,F6,93,38,10,8E,9D,9 
3,3D,10,06,13,16,FF,79,FC,93,37,17,FF,21 
1430 DflTflflS,06,15,16,FF,6E,34,12,8E,00,0 
3■36,30,R7.R0.53,24,02,60,3F,30,1F,26,7D 
1440 DRTRF5,6F,R4,35,92,5F,8E,9D,R9,î 7,0 

1.42, ED,81,5F,17,01,30,ED,81,6F,34,06,R4 
1450 DRTR03,F7,93,27, 06 ,1 7 , F7 ,93,26,BD,9 

4.42, BD,95,R9,8E,9D,R9,7E,94,7F,F6,93,BD 
1460 DRTR30,SE,9D,R9,17,01,19,ED,31,6F,3 
4,06,05,20,DB,1F,B9,3E,9D,R9,17,61,09,29 
1470 DRTRED,81,6F,34,06,07,20, CB,1F,43,8 
D, 02,20, 16, 1F> 30,1F, 39, SE, 9D, R9,17,00,22 
1430 DRTRF1,ED,31,1F,30,17,00,ER,ED,81,6 
F, 34,39,06, 09, 16, FF, RR, FE,93,31,8D, E0,06 


1490 DRTR06,0B,16,FF,R0,FE,93,33,8D,D6,0 
6,0D,16,FF,96,FE,93,35,8D,00,06,0F,16,35 
1500 DRTRFF,30,F6,93,37,3E,9D,R9,BD,9F,B 
7,ED,SI,6F,34,06,11,16,FF,7fi,F6,93,38,BR 
1510 DRTR3E,9D,R9,BD,9F,B7,ED,81,6F,84,C 
6,13,16,FF,68,FE,93,37,8P,9E,C6,15,16,82 
1520 DRTRFF,5E,0F,4E,0F,4F,BD,9F,D9,06,0 
3,F?,93,27,06,1D,F7,93,26,BD,94,42,BD,RR 
1533 DRTR95,02,8E,9D,RE,7E,94,7F,F6,93,3 
0,0F,4E,D7,4F,BD,9F,D9,06,05,20,DE,1F,IR 
1540 DRTRB9,0F,4E,D7,4F,BD,9F,D9,06,07,2 
0,D1,10,DF,4E,BD,9F,D9,06,09,20,07,FE,55 
1550 DRTR93,31,DF,4E,BD,9F,D9,06,08,16,F 
F,BR,FE,93,33,DF,4E,BD,9F,D9,06,0D,16,D5 
1560 DRTRFF,RD,FF,93,35,DF,4E,BD,9F,D9,C 
6,0F,16,FF,R0,F6,93,37,0F,4E,D7,4F,BD,5E 
1570 DRTR9F,P9,06,11,16,FF,91,F6,93,33,0 
F,4E,D7,4F,BD,9F,D9,06,13,16,FF,82,FO,DR 
1530 DRTR93,37,DD,4E,BD,9F,D9,06,15,16,F 
F , 75 , 34 , 04 , 54 , 54 , 54 , 54 , SD , 11 , 35 , 02 , 34 , 20 
1590 DRTR04,1F,89,04,0F,8D,07,1F,98,35,0 
4,1E.89,39, Cl, 0R,25,02,CB,07,CB,30,39,DB 
1600 DRTR34,76,17,F4,33,35,F6,00,FF 


Commentaires : 

RUN pour implanter à l’adresse : 8H9300 : 8H9FE1 
Définissez vos instructions avec le crayon ou les touches. 

Pour les instructions de rotation et pour COM et NEG, tapez A 
ou B pour choisir l’accumulateur. 

Pour les instructions logiques, introduisez A ou B, puis en hexa la 
valeur désirée 00/FF. 

Pour LD, introduire A B D X Y U, puis les valeurs hexa 00/FF 
pour A et B. 0000/FFFF pour D X Y U. 

Pour quitter, CNT/C ou pointez en haut à gauche. 


ZX81 

INTRODUCTION AU ZX 

Découvrez quelques astuces de programmation 
étonnantes, du plus bel effet lors d'une démonstration. 


1 SAUE "INTRODUCTION AU Zx” 

106 CLS 

4 REM 1introduction au zx! 

107 LET P-B 

5 LET P-6 

110 LET AS-”ok'nous pouvons donc converser” 

10 LET A$«”JE SUIS UN MICRO ORDINATEUR" 

130 GOSUB 900 

30 GDSUB 900 

130 CLS 

3C LET A$="MCN NOM EST..2X01C1BK.OCTETS)" 

135 REM carre d1 un nombre 

40 GOSUE 900 

140 LET P-3 

43 LET AS-”..OU 2X01 TOUT COURT" 

150 LET AS-” je sais elever au carre ” 

45 GDSUB 900 

160 GOSUB 900 

46 CLS 

170 GOSUB 1050 

47 LET AS-" maintenant ' Je te regardes ’’ 

300 PRINT AT 10,10;A; ; A; ;A**2 

40 G05UB 900 

310 PAUSE 50 

50 LET AS-"nAlS...ES-TU BIEN REUEILLE ??" 

330 CLS 

60 GOSUB 900 

333 REM racine carree 

70 LET A$-”AL0RS..REPONDS MÜI:OUI OU NON" 

335 LET P-3 

00 GOSUB 900 

230 LET AS-” Je sais extraire une racine " 

90 INPUT AS 

340 GOSUB 300 

100 IF AS-"NON” THEN GOTO 1000 

350 GOSUB 1050 

105 IF A$< >"OUI” THEN GOTO 90 

260 PRINT AT 10,3; "RACINE DE ”;A;”-”;SG)R A 
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290 PAUSE 50 
300 CLS 

305 REn changement de theme 
310 LET P-2 

320 LET AS-"DE PLUS, JE CONNAIS UN TAS DE 1 ’ 
330 GOSUB 900 

340 LET AS""CHOSES* PLUS MERVEILLEUSES" 

350 GOSUB 900 

3G0 LET A$-"ENCORE QUE CELA " 

370 GOSUB 900 
3B0 PAUSE 50 
390 CLS 

395 REM choix dI un jeu 
400 LET P-2 

410 LET AS-"PAR EXEMPLE. veuxJtu un jeu !” 
420 GOSUB 900 

430 LET AS-"REPONDS-MOI OUI OU NON” 

432 LET P-P-2 
435 GOSUB 900 
440 INPUT AS 

450 IF AS-”NON” THEN GOTO 510 
460 IF A$<>"OUI" THEN GOTO 440 
462 REM Jeu de des 
465 LET P-2 

470 LET A$-” jouons aux des'veux juu i 
4B0 GOSUB 900 
490 INPUT AS 

500 IF AS-"OUI" THEN GOTO 550 
505 IF ASC>"NON” THEN GOTO 490 
510 LET A$-”NON,VRAIMENT PAS?.. 

515 GOSUB 900 
520 PAUSE 50 
525 CLS 
530 GOTO 637 

535 LET A$-”ATTENTION, . . . 


540 GOSUB 900 

545 PAUSE 50 

550 LET Z-INT CRND^7J+1 

555 IF 2<>7 THEN GOTO 595 

560 CLS 

565 LET A$-"ZUT..CAS5E,JE RECOMMENCE" 

570 GOSUB 900 
575 LET P-P-6 
500 PAUSE 50 
505 CLS 
590 GOTD 550 

595 LET AS-"LE POINT JOUE EST 
600 GOSUB 900 

605 PR INT AT P-2,10Z 
610 LET AS-"ON CONTINUE??” 

615 GOSUB 900 
620 INPUT AS 
625 CLS 
630 LET P-P-4 

635 GOTO 500 . 

636 REM jeu du loto 

637 LET P-2 

640 LET A$-"maintenant 1 Je propose un loto’ 

645 GOSUB 900 

646 LET AS-”ATTENTION” 

647 GOSUB 900 
640 CLS 

650 LET X-l 

651 LET ZI-1NT CRND-49) «-1 

652 LET 22-1NT CRN0 < *49) + 1 

653 IF ZlOZB THEN GOTO 655 

654 GOTD 652 

655 LET 23-I NT CRND*49)+1 

656 IF Z3<>Z2 AND Z3<>Z1 THEN GOTO 658 

657 GOTO 655 


658 LET Z4-INT CRND*49)+1 

659 IF 240 23 AND Z4<>Z2 AND 24<>Z1 THEN GOTO 661 

660 GOTO 650 

661 LET Z5-INT CRND*49)+1 

662 IF 25<>Z4 AND 25<>Z3 AND Z5<>Z2 AND 24<>21 THEN GDTO 664 

663 GDTO 661 

664 LET 26-1NT CRND^49D + 1 

665 IF Z6<>25 AND 26<>Z4 AND 26<>Z3 AND 26<>22 AND 26<>21 THEN GOTO 667 


NQ-”j X/2+.5 ;")";TAB 6;Z1;TAB 10;Z2;TAB 14;Z3:?AE 18 ; 24 ;TAB 22 


666 GOTO 664 
670 PRINT AT X,0 
Z5;TAB 26;Z6; 

673 LET X-X+2 

674 IF X<16 THEN GOTO 651 

675 PAUSE 200 

676 LET P-17 

677 LET AS-" asltu bien releve ta grille! 
67B GOSUB 900 

679 LET AS-"SINON,JE T EN REFAIS UNE AUTRE 

600 GOSUB 900 

601 CLS 

602 LET P-2 

603 LET AS-" veux J tu une autre grille! " 
684 GOSUB 900 

605 LET AS-"REPONDS-MOI PAR OUI OU NON” 

606 G05UB 900 

607 INPUT AS 

600 IF AS-"OUI" THEN GOTO 648 
609 IF A$< >"NON” THEN GDTO 687 

690 LET AS-"BON..QUE VAS-T ON FAIRE?" 

691 GOSUB 900 

692 LET AS-"VEUX-TU QUE JE ME MONTRES??" 

693 GOSUB 900 

694 LET AS-"REPONDS-MOI” 

695 GOSUB 900 




696 INPUT AS 

697 IF A$-”NON” THEN GOTO 000 
690 IF A$<>”QUI” THEN GOTO 697 

699 CLS 

700 Dlfl BSC5.6) 

701 LET BSCl)-” 

702 LET B$C2)-” 

703 LET BSC3D- M 

704 LET BSC 4)-” 

705 LET BSCS)-” 

706 FOR N-l TO 10 

707 PRINT AT 11,N;BSC1) 

70B PRINT TAB N;B$C2) 

709 PRINT TAB NjBSCS) 

710 PRINT TAB N;B$C4) 

711 PRINT TAB N;BSC5D 

713 NEXT N 

714 PRINT AT 13,N-l;BSC3); AT 15,N-l;BSC5) 

715 PAUSE 50 
717 LET P-2 

710 LET A$-”alors'suisDJe beau! 719 GG5UB 900 

720 PAUSE 50 

721 FOR N-l TO 12 

722 PRINT AT 13-6»C0S CN/6*PI) , 13+6*SIN CN/6*P Ï'J ; ”*" 

723 PRINT AT 13-7*C0S (N/6*Pn,13+7*SIN CN/6«PI); 

725 PRINT AT 13-0*COS <N/6*PI3,13+0*5IN CN/6*PI);”*” 
720 NEXT N 

729 PAUSE 200 

730 LET P-10 

731 LET AS-” c était le bouquet final ” 

732 GOSUB 900 

733 PAUSE 50 

734 CLS 

735 REfl il reste jusqu a ligne 000 pour ajouter un jeu 
BOO REM adieu final 

010 CLS 
015 LET P-10 

020 LET AS-”DK...MAINTENANT.ADIEU ” 

025 GOSUB 900 
030 LET P-16 

035 LET AS-"JE DECONNECTE rtON ECRAN” 

040 GOSUB 900 
045 CLS 

B50 FOR K-l TO 21 

055 PRINT M ! !” 

060 NEXT K 

665 print "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" 

066 FOR N-l TO 30 

067 PRINT AT 10, 13 ;'’RI DEAU ” 

060 PRINT AT 10,13-, "rideau" 

069 NEXT N 

070 PRINT AT 11,4;””;AT 11,21;”” 

071 PRINT AT 12,4;BSC1); AT 15,21;BS(1) 

072 PRINT TAB 4;B$C2);TAB 21;BS(2) 

073 PRINT TAB 4;B$C3);TAB 21;BSC5) 

074 PRINT TAB 4;B$C4);TAB 21;BSC4) 

075 PRINT TAB 4;B$(5J;TAB 21;BSCS) 

076 PRINT TAB 4 ;”";TAB 21;”” 

077 FOR N-l1 TO 17 

070 PRINT AT N,4 ;” ”; AT N,21;” ” 

079 NEXT N 
097 PAUSE 4E4 
090 CLS 
099 GOTO 5 

900 REN écriture pas a pas 
910 FOR N-l TO LEN AS 
920 PRINT AT P.NjASCN);” 

950 NEXT N 

960 PRINT AT P,N;” ” 

970 PAUSE 50 
975 LET P-P+2 
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250 IF N-l THEN GOSUB 1500 
250 IF N-2 THEN GOSUB 1600 
270 LET 0-1 
2B0 LET A-C E*F)-CB+B) 

290 LET B-E+E+E 
300 GOSUB 1000 

310 PRINT AT 21,0; "DE N0- ,, ;0;AT 21,15; "POINTS-";SCN,M,0 j ; " / ” ; 

320 LET 0-2 
330 LET A-E 
340 LET B-T+F 
350 GOSUB 1000 

360 PRINT AT 21,6;0;AT 21,24 ; SCN, fl, 0) ; ”/ M ; 

370 LET 0-3 
380 LET A-E*F 
390 GOSUB 1000 

400 PRINT AT 21,6;0;AT 21,26; SCN, fl, 0) 

410 PAUSE 120 
420 POKE 16437,255 
430 CLS 
440 NEXT N 
450 NEXT M 
HGO CLS 

470 FOR N-l TO 2 
400 IF N-l THEN GOSUB 1500 
490 IF N-2 THEN GOSUB 1600 
500 LET ZCN3-0 
510 PRINT "joueurn ";N 
520 PRINT 
530 FOR n-l TO 5 
540 PRINT n ; '* "; 

550 FOR 0-1 TO 3 
560 PRINT SCN.n.O^;” "; 

570 LET UJ-SCN.M, 1) 

580 LET X-SCN.n.2) 

590 LET Y-SCN.n.S) 

600 NEXT 0 

610 IF CU+X+Y-F+T+T/T) AND CUI-4 OR X=4 OR Y-4) THEN GOSUB 2000 

620 IF Cld+X+Y-F-T/T) AND CUI-T/T AND X-T/T AND Y-T/T; THEN GOSUB 2500 

630 IF CU+X-T) AND CYOT/TD THEN GOSUB 2100 

640 IF C-X+Y-T) AND CLIOT/T) THEN GOSUB 2200 

650 IF CUI+Y-T) AND CXOT/T) THEN GOSUB 2300 

660 IF CUi+X-F) AND Clü-TD THEN GOSUB 2400 

670 IF CX+Y-F) AND CX-T3 THEN GOSUB 2600 

600 IF CU+Y-F) AND CY-T) THEN GOSUB 2700 

690 LET U-U+X+Y 

700 IF U/3-UI AND U/3-X AND U/3-Y THEN GOSUB 2900 

710 IF CU-U*3 AND CX+2-Y OR Y+2-X)) OR CU-X*3 AND CU+2-Y OR Y+2-W55 OR CU-Y-3 A 
ND CUI+2-X OR X+2-UO) THEN GOSUB 2800 
720 PRINT 
730 NEXT n 
740 PRINT 
750 NEXT N 
760 PRINT 

770 FOR G-0 TO 43 STEP 2 
780 PLOT 40,G 
790 NEXT G 

800 FOR G-0 TO 63 STEP 2 
010 PLOT G,29 
020 NEXT G 


Commentaires : 

Si vous n'avez pas d’Eprom graphique Intégrée, n’écrlve 2 pas les lignes 
250-260-1500 à 1610 (CF « Jeu de dés»), ni 9990 à 9996, destinées à une 
Eprom Toolklt. 


030 IF ZC1)>Z(2) THEN PRINT AT 0,22; "gagnant”; AT 2,22;"SCORE ’‘;2C1?;AT 4,22;"P0 


INTS”; AT 0,22 ;"perdantAT 10,22;"SCORE ";ZC2);AT 12,22 
040 IF ZC2)>ZC1) THEN PRINT AT B,22 ;"gagnant"; AT 10,22 
POINTS”; AT 0,22 ;"perdant”; AT 2,22;”SC0RE ”;ZC1);AT 4,22 
850 IF ZC2)-ZC1} THEN PRINT AT 0,22 ;"gagnantAT 10,22 
POINTS"; AT 0,22 ;"gagnant”; AT 2,22;"SCORE ";ZC1);AT 4,22 


"POINTS” 

"SCORE ” ; Z C 2 ) ; AT 12,22 
"POINTS" 

"SCORE ";ZC 2}; AT 12,22 
"POINTS" 


999 STOP 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
10B0 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
11B0 
1190 
1200 
1500 
1510 
1600 
1610 
2000 
2010 
2100- 
2105 
2110 
2200 
2205 
2210 
2300 
2305 


2310 

2400 

2405 

2410 

2500 

2505 

2510 

2600 

2605 

2610 

2700 

2705 

2710 

2600* 

2B05 

2B10 

2900 

2905 

2910 

9900 

9990 

9991 

9992 

9993 

9994 

9995 

9996 


LET SCN,n,0)-INT CRND*CT+F))+T/T 

FOR X-A TO A+E+E 

PLOT X,B 

PLOT X,B + E+E 

NEXT X 

FOR X-B TO B+E+E 
PLOT A,X 
PLOT A+E+E,X 
NEXT X 

IF SCN, H, 0)0 INT CSCN,n,0)/T)*T THEN PLOT A+E,B+E 
IF SCN.n.OXT THEN RETURN 
PLOT A + F,B+E + F 

PLOT A + E + F, B+F —X ^ 

IF SCN,M,00<F THEN RETURN 3A II 

PLOT A + E + F, B+E+F WyV 


THEN RETURN 


11939 


.10; ”4212005 LET ZCNl-ZCN) 

10;”DEUX AS Y, 

ZCN)+Y*10 


PLOT A+F,B+F 
IF SCN.M.DXT+F TH 
PLOT A+F.B+E 
PLOT A+E+F,B+E 
RETURN 

LET L-USR 11924 
RETURN 

LET L-USR 11939 
RETURN 

PRINT TAB .10;”4212 
RETURN 

PRINT TAB 10;”DEUX 
LET ZCN )-ZCN)+Y*10 
RETURN 

PRINT TAB 10 ;"DEUX 
LET ZCN)-ZCN)+U*10 
RETURN 

PRINT TAB 10 ; "DEUX 

let zcn:i-zcn:+x*io 


RETURN 

PRINT TAB 10;"NENETTE ”; Y. 

LET ZCN)-2(N)-Y*10 
RETURN 

PRINT TAB 10;"trois as”, 

LET ZCN)-2CN^+200 
RETURN 

PRINT TAB 10;”NENETTE ";U, 

LET ZCN)-ZCN)-U*10 
RETURN 

PRINT TAB 10;"NENETTE ”;X, 

LET ZCN)-ZCN)-X*10 
RETURN 

PRINT TAB 10; "TIERCE U/3-1 ; U/3 ; U/3+1, 

LET ZCN1-ZC N)+50 

RETURN 

PRINT TAB 10;"TOUS LES ”;W, 

LET ZCN)-ZCN)+10Û 

RETURN 

STOP 

POKE 16417,1+128*CPEEK 16417>127) 

SLGUI 

RAND USR 12494 
INPUT DATA 

POKE 16507,DATA-256*INT CDATA/256) 

POKE 1650B,INT CDATA/256) 

GOTO 9992 



NE PAS TENIR COHPTE DES LIGNES 9990 A 9996 

Elles ne servent qu avec une epram integree de "TOOLKIT"dont j ai dote mon ZX 01 
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ZX81 


JEU DE DES 


Vous jouez à deux, mais c'est la machine qui lance les dés 
au hasard. Le programme dessine les dés, 
affiche le nombre de lancers, les gains, et désigne le vainqueur. 


1 SAUE "JEU DE DEs" 

20 LET T-2 
30 LET F-T+T 
40 LET E-F + F 
50 DIM SC 2,5,5) 

60 RAND 
70 CLS 

BO FOR M-l TO 5 
30 LET A-E 
100 LET- B-T+F 
110 FOR N-l TO 2 

120 PR INT AT 20,0;"JOUEUR NO:”;N;AT 20,15; "LANCER N0-”:n 

130 IF N-l THEN GOSUB 1500 

140 IF N-2 THEN GOSUB 1G00 

150 LET 0-1 

150 LET A-CE*F1-CB+B) 

170 LET B-E+E+E 
180 GOSUB 1000 

190 PRINT AT 21,0; "DE N0-”;0;AT 21,15 ; "POINTS- 1 ’ ; SCN , fl, 0 ; ; ” / ” ; 

200 LET 0-2 

210 LET A-E 

220 LET B-T+F 

230 GOSUB 1000 

240 PRINT AT 21,6;0;AT 21,24 ; SCN,H,0); ”/”; 

250 LET 0=3 
2E0 LET 

270 608UB 1000 

800 PRINT ftT 21,6 j 0 î AT 21 f 2B; SCN, M, D? 

230 PAUSE 120 
300 PQKE 16437,255 
310 CLS 
320 NEXT N 
330 NEXT M 
340 CLS 

345 FOR N-l TO 2 

346 PRINT "Joueuro ” ; N 

347 PRINT 

350 FOR M-l TO 5 
355 PRINT D;” ”; 

360 FOR 0-1 TO 3 
370 PRINT SCN,n,0);” ”; 

300 NEXT 0 

3B5 IF SCN,n,l^+SCN,n,21+SCN,n,3I-F+T+T/T THEN GOSUB 2000 
306 PRINT 
390 NEXT H 
395 PRINT 
400 NEXT N 
410 PRINT 
999 STOP 


Commentaires : 

Si vous n’avez pas d’Eprom graphique intégrée, n’écrivez pas les lignes 
130-140-1500 à 1610 (inversion complète de l’écran selon le joueur). 
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1000 LET SCN.n.CD-INT CRND*CT+F3 3+T/T 
1010 FOR X-A TO A+E+E 
1020 PLOT X,B 
1030 PLOT X,B+E+E 
1040 NEXT X 
1050 FOR X“B TO B+E+E 
1060 PLOT A, X 
1070 PLOT A+E+E,X 
1000 NEXT X 

1100 IF SCN.n,0)<>INT CSCN, M,0)/T)*T THEN PLOT A+E,B+E 
1110 IF SCN.n,.OXT THEN RETURN 
1120 PLOT A+F,B+E+F 

1130 PLOT A+E+F, B+F \ / 

1140 IF SCN.M, OXF THEN RETURN \ / 

1150 PLOT A+E+F,B+E+F ^ f à 

1160 PLOT A+F,B+F 
1170 IF S(N,n,OXT+F THEN RETURN 

11B0 PLOT A+F, B+E * ^ j. g ^ 

1130 PLOT A+E+F, B+E / Ej# 

1200 RETURN 
1500 LET L-USR 11324 
1510 RETURN 
1600 LET L-USR 11333 
1610 RETURN 

2000 PRINT TAB .10;"gagnant”, 

2010 RETURN 
3360 STOP 


.. **»*• 

i **■" . „*>- 



ZX81 

CALCULS 

Essayez de piéger (!) la machine en lui soumettant des mots 
dont elle doit estimer la longueur, déceler les 
fautes d'orthographe. Et surtout, attendez ses réponses... 


1 

SAUE "CALCULS” 



30 

CLS 



35 

PRINT "CALCULS” 



100 

PRINT 



102 

PRINT "13RACINES CARREES" 



104 

PRINT 



110 

PRINT "ENTREZ UN NOMBRE,REPONDEZ PAR OUI=" 

”0” " 

□U PAR NON=” "N”"” 

111 

INPUT R$ 



112 

IF Ræ-"0” THEN GOTO 120 



113 

IF R$< > ”0 ” AND RîO”N" THEN GOTO 111 



114 

IF R$-”N” THEN GOTO 135 



115 

GOTO 30 



120 

CLS 



121 

PRINT "ALLEZ-Y POUR UN NOMBRE...” 



125 

PRINT "CSI UOUS NE UOULEZ PLUS JOUER,ENTREZ 

NON- 

" "N” 

126 

INPUT RS 



127 

IF R$-"N" THEN GOTO 190 



120 

INPUT A 



130 

IF A<0 THEN GOTO 170 
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140 IF A>0 THEN GOTO 150 
150 PRINT A,SQR A 
155 PAUSE 150 
160 GOTO 120 

170 PRINT "ERREUR. .NOMBRE NEGATIF ;UERIFIE2 UOS CONNAISSANCES" 

100 GOTO 101 
130 CLS 
135 PRINT 
137 PRINT 
190 PRINT 

000 PRINT ”E)nESURE DES LONGUEURS DE MOTS” 

000 PRINT 

010 PRINT "U0ULE2-U0US ENTRER UN MOT ? REPGNDE2 PAR OUI"”"O”” 

OU PAR NON"”"N””” 

011 INPUT R$ 

010 IF R$"”0” THEN GOTO 000 
014 IF RS-"N" THEN GOTO 30 
015 GOTO 190 
000 CLS 

001 PRINT "ALLE2-Y POUR UN HOT. ... CDOUX??) ” 

000 PRINT 
003 PRINT 
004 PRINT 
005 INPUT AS 

006 IF A$"”N” THEN GOTO 100 
007 IF LEN AS-l THEN GOTO 050 
00B IF LEN A$>05 THEN GOTO 070 
009 IF A$” ,, BAISER” THEN GOTO 300 
030 PRINT AS,LEN AS 
035 PAUSE 150 
040 GOTO 000 

050 PRINT "ERREUR..UN MOT N E5TPAS UNE LETTRE” 

060 GOTO 000 

070 PRINT "ERREUR..CE N,EST PAS DU FRANÇAIS” 

075 GOTO 000 

000 PRINT "ALORS,ON PERD LA TETE?? ALLE2 Y” 

090 GOTO 000 

300 PRINT "QUEL SENS A CE N0T?REP0NDE2 PAR”, , ,”EON=” "B" ” OU..MOINS EON = ”" 
310 INPUT □$ 

300 IF D$-”B” THEN GOTO'030 
330 IF DS-’-N” THEN GOTO 335 

335 PRINT 

336 PRINT 

337 PRINT 

340 PRINT "ALLE2 UOUS RHABILLER.... JE SUIS UN ORDINATEUR SERIEUX” 

345 PAUSE 050 
350 GOTO 000 
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ZX81 


NUMEROSCOPIE 

Inspiré de la numérologie — science divinatoire — ce programme 
analyse à partir du décodage de vos noms et 
prénoms, vos comportement, hérédité, personnalité, affinités. 


1 GOTO 10 
8 RAND USR 30460 

3 REH S76NUMER0SC0PIE 

4 REH *********************** 

5 REM CREE PAR HICHEL DECOflBLE, EN FEURIER 1903 .PARTANT D UN ARTICLE PARU DAN 
’ "PAR I S-GU I DE”” 

6 REH ..♦**.^***#..*#. 

7 REM 

0 REH j 

95 REH etude masculine I 


96 REM 
98 LET AS’ 


entrez son' 


100 LET BS" M entrez votre” 

110 LET CS-” prénom ” 

120 LET D$-=” nom ” 

130 LET ES"” vous avez’ " 

135 LET F$"”C FAITES N/LD” 

140 PRINT BS ; CS 
150 INPUT PS 
160 PRINT PS 
165 LET TS-PS 

170 GOSUB 4000 -— 

100 IF T0>"10 THEN GDSUB 5000 

190 LET TP-TÜ 

200 PRINT BS;DS 

210 INPUT NS 

220 PRINT NS 

230 LET TS-NS 

240 GOSUB 4000 J 

250 IF T0>"10 THEN GOSUB 5000 VI 

260 LET TN-TO V 

270 PRINT CS;; TP f 

200 PRINT DS;" -”;TN | 

290 PRINT " -” ^ 

300 LET TO-TP+TN 

310 PRINT "TOTAL -";T0 

320 IF T0>"10 THEN GOSUB 5000 

330 LET TT-TO 

340 PRINT AT 21,15;FS 

350 PAUSE 4E4 

360 CLS 

365 LET X-0 

370 LET XS-”passans aux resultata" 

375 GOSUB 5500 
300 PRINT 

390 PRINT ”15 LE NOMBRE DU PRENOM A UNE”.,, 
OMPORTEMENT QUOTIDIEN” 

400 PRINT 

410 PRINT PS;” M ;N$;”,”; ES 
420 PRINT 

430 GOSUB TP*10-*-2000 
435 PRINT AT 21,15;F$ 

440 PAUSE 4E4 
450 CLS 



INFLUENCE ACTIUE SUR LE”... 
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4:60 PRINT ”2) LE NOMBRE DU NOM ESI L 


r 9 i 


INFLUENCE HEREDITAIRE” 


470 PRINT 

4B0 PRINT PS;” ”; NS ; ”,”; ES 
4S0 PRINT 

500 GOSUB TN*10+2000 
SOS PRINT AT 21,15;F$ 

510 PAUSE 4E4 
520 CLS 

530 PRINT ”3) LE NOMBRE TOTAL,PRENOM ET NOM",,” EST LA PERSONNALITE ET PERMET 


DE DEFINIR LES TRAITS”,,,” DU CARACTERE” 

540 PRINT 

550 PRINT PS;” ”; NS ;", ”; ES 
560 PRINT 

570 GOSUB TT*10+2000 
575 PRINT AT 21,15;F$ 

500 PAUSE 4E4 
590 CLS 
595 LET X-6 

600 LET X$-”vous pouvez a présent réaliser” 

605 GOSUB 5500 

610 LET X$"”le meme test pour votre amie” 

615 GOSUB 5500 
620 PAUSE 150 
630 CLS 

650 PRINT AS ; CS 
660 INPUT 0$ 

670 PRINT 0$ 

675 LET TS-DS 
600 GOSUB 4000 

600 IF T0>-10 THEN GOSUB 5000 
700 LET TP-TO 
710 PRINT AS ; DS 
720 INPUT QS 
730 PRINT QS 
740 LET TS-QS 
750 GOSUB 4000 

760 IF T0>-10 THEN GOSUB 5000 
770 LET TN=T0 
700 PRINT CS;TP 
790 PRINT DS;” -”;TN 

BOO PRINT ” -” 

010 LET TQ-TP+TN 
020 PRINT "TOTAL -”;T0 
030 IF T0>-10 THEN GOSUB 5000 
040 LET TTF-TO 
B50 PRINT AT 21,15;FS 
060 PAUSE 4E4 
070 CLS 
075 LET X-0 

000 LET XS-"passons aux résultats" 

005 GOSUB 5500 
090 PRINT 

900 PRINT ”1) LE NOMBRE DU PRENOM A UNE”,,,” INFLUENCE ACTIUE SUR LE”.,," C 
OMPORTEMENT QUOTIDIEN” 

910 PRINT 

920 PRINT 0$;” ";Q$; ”, ”; ES 
930 PRINT 

940 GOSUB TP*10+3000 
945 PRINT AT 21,15;FS 
950 PAUSE 4E4 
960 CLS 

970 PRINT ”2) LE NOMBRE DU NOM EST L”,,,” INFLUENCE HEREDITAIRE” 
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980 PRINT 

990 PRINT OS;” "jQî;”, ” ; ES 
1000 PRINT 

1010 GOSUB TN*10+3000 
1015 PRINT AT 21,15 ; FS 
1020 PAUSE 4E4 
1030 CL5 

1040 PRINT ”3J LE NOMBRE TOTAL,PRENOM ET NOM”, , " EST LA PERSONNALITE ET PERMET 
DE DEFINIR LES TRAITS”,,,” DU CARACTERE” 


1050 PRINT 

1060 PRINT 0$;” ";Q$;”, "; ES 
1070 PRINT 

1080 GOSUB TTF*10+3000 
10B5 PRINT AT 21,15;FS 
1090 PAUSE 4E4 
1100 CLS 
1105 LET X-B 

1110 LET X$-”voulezlvous a présent vérifier” 

1112 GOSUB 5500 

1115 LET X$-”vos affinités avec votre amie!” 

1117 GOSUB 5500 
1120 PRINT 

1130 PRINT AT .10,15;FS 
1140 PAUSE 4E4 
1150 CLS 

1160 PRINT PS;” "; NS 
1165 PRINT 

1170 PRINT "UOTRE CHIFFRE EST-”;TT 
1180 PRINT 

1190 PRINT 0$;” ”;□$ 

1195 PRINT 

1200 PRINT ”UOTRE CHIFFRE EST-”;TTF 
1205 GOSUB 6000 
1210 PRINT 

1220 LET X$-”la table de concordance dit que” 

1222 GOSUB 5500 

1225 LET XS-” votre entente est ” 

122B GOSUB 5500 
1230 LET SS-RSCTT,TTF) 

1240 IF SS-”E” THEN PRINT "exellente" 

1250 IF S$-"B” THEN PRINT "bonne” 

1260 IF 5$-”M” THEN PRINT "moyenne” 

1270 IF SS-”D” THEN PRINT "douteuse” 

1990 STOP 

2000 REM comportement masculin 

2010 PRINT "*UNE FORTE PERSONNALITE”,,,"*0E LA UOLDNTE”,,,,"♦DE LA LOYAUTE”,,,,” 
•MAIS ETES UIOLENT”,,,,”ET EGOÏSTE." 

2015 RETURN 

2020 PRINT ”*DE L EQUILIBRE”,,,,"*DE LA DIPLOMATIE”,,,"♦DE LA SENSIBILITE"..."*n 
AIS ETES SOUMIS”,,,,”ET PASSIF." 

2025 RETURN 

2030 PRINT ”*DE LA CREATIUITE”,,,"*DE L ENERGIE”,,,,”*DE L INDEPENDANCE”,,,"♦MAI 
S ETES ORGUEILLEUX”,,,,"ET INSTABLE” 

2035 RETURN 

2040 PRINT ”*DE L ORGANISATION”,,,"♦DU SENS PRATIQUE",,,”-DE LA PATIENCE”,,.,"♦C 
E LA TENACITE”,,t,”*MAIS ETES DE UUE ETROITE”,,,”*ET MANQUEZ DE TACT" 

2045 RETURN 

2050 PRINT ”*L AMOUR DE LA UIE», , ,”*PLEIN DE CHARME”,,,"♦DU DYNAMISME*MAI5 
ETES AUSSI IMPULSIF”,,,”*ET UERSATILE” 

2055 RETURN 

2060 PRINT "♦DE L HARMONIE”, , ,,"♦DE L INTUITION", , , ,"♦DE LA TENDRESSE“♦MA15 
MANQUEZ DE SENS PRATIQUE" 

2065 RETURN 


2070 PRINT ”*DE LA REFLEXION”, , , ”*UNE UIE INTERIEURE”,,, "*MAI5 ETES PESSIMISTE” 

,,,"ET TiniDE” 

2075 RETURN 

20Ô0 PRINT "*DE L ORIGINALITE”, ,,"*DE L ENERGIE”,,,,"♦DU MAGNETISME",,,,”*DE L A 
UTORITE”,,,,"*MAIS ETES DUR",,, ( "ET AGRESSIF" 

20B5 RETURN 

2090 PRINT "*DE L IDEALISME",,,,”*DE LA SENSIBILITE”,,,"♦UN CARACTERE PASSIONNE” 

, , ,"*UN GRAND SENS ARTISTIQUE", , ,"*MAIS ETES DESORDONNE"♦ET AUE2 L ESPRIT DE 
DESTRUCTION” 

2095 RETURN 

3000 REM comportement Féminin 

3010 PRINT "UNE FORTE PERSONNALITE”, , ,"DE LA UÜLONTE"DE LA LOYAUTE"MA I 
S ETES UIOLENTE",,,,"ET EGOÏSTE.” 

3015 RETURN 

3020 PRINT "DE L EQUILIBRE",,,,"DE LA DIPLOMATIE”,,,"DE LA SENSIBILITE”,,,"MAIS 
ETES SOUMISE",,,,"ET PASSIUE.” 

3025 RETURN 

3030 PRINT "DE LA CREATIUITE”,,,"DE L ENERGIE"DE L INDEPENDANCE"MAIS ET¬ 
ES ORGUEILLEUSE",,,,"ET INSTABLE" 

3035 RETURN 

3040 PRINT "DE L ORGANISATION",,,"DU SENS PRATIQUE”,,,"DE LA PATIENCE”, , , , "DE LA 
TENACITE”,,,,"MAIS ETES DE UUE ETROITE”,,,"ET MANQUEZ DE TACT" 

3045 RETURN 

3050 PRINT "L AMOUR DE LA UIE",,,"PLEIN DE CHARME”,,,,"DU DYNAMISME", , , , "MA IS ET 
ES AUSSI IMPULSIUE",,,"ET UERSATILE" 

3055 RETURN 

3060 PRINT "DE L HARMONIE",,,,"DE L INTUITION",,,,"DE LA TENDRESSE”,,,,"MAIS MAN 
QUEZ DE SENS PRATIQUE” 

3065 RETURN 

3070 PRINT "DE LA REFLEXION",,,,"UNE UIE INTERIEURE",,,"MAIS ETES PESSIMISTE”,,, 

,"ET TIMIDE" 

3075 RETURN 

3000 PRINT "DE L ORIGINALITE",,,"DE L ENERGIE",,,,"DU MAGNETISME”, , , , "DE L AUTOR 
ITE”, , , ,"MAIS ETES DURE", , , ,"ET AGRES5IUE” 

3005 RETURN 

3090 PRINT "DE L IDEALISME”,,,,"DE LA SENSIBILITE", , ,"UN CARACTERE PASSIONNE”,,, 
"UN GRAND SENS ARTISTIQUE”,,,"MAIS ETES DESORDONNEE",,,"ET AUEZ L ESPRIT DE DEST 
RUCTION" 

3095 RETURN 

3990 STOP 

4000 LET TD-0 

401J FOR 2-1 TO LEN T$ 

4012 IF CODE TSC2X-37 TH.EN LET UIO-CODE TSC 2 ) 

4013 IF CODE T$C2)>-30 AND CODE TSC2X-46 THEN LET UO-37 

4014 IF CODE TSCZX-47 AND CODE T$CZ)<-55 THEN LET UO-46 

4015 IF CODE T$CZ)>-56 AND CODE TSC2X-63 THEN LET UO-55 

4016 IF CODE T$CZ)>-64 THEN LET UO-CDDE T$CZ) 

4025 PRINT CODE T$C2)-U0; 

4030 LET TO-TO+CODE TSCZXUO 
4040 NEXT 2 
4050 PRINT ” -";TO 

4060 PRINT 
4070 RETURN 
5000 LET UÏ-STRS TO 
5010 LET TO-O 
5020 FOR 2-1 TO 2 
5030 PRINT U$CZ);” "; 

5040 I ET TO-TO+UAL U$CZ) 

5050 NEXT Z 

5055 PRINT "S/TOTAL-”;TO 

5056 IF T0>-10 THEN GOSUB 5000 

5057 PRINT 
5060 RETURN 

5500 REM écriture pas a pas 
5510 FOR W«1 TO LEN X$ 

5520 PRINT AT X,UI;XSCUH; 
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. "TBVSTER ! |Sfl45 F 
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THtV SOLD A MU.UON N CID 

• 90/i*s f 

i'^ E Æ 

AMSTRAD CASSETTES 


NOUVEAUTES |-i 

• :• -CRH SYDNEY». 

145 F 

BLAZER». 

. 95 F 

'• - : Al. CASTLE» .... 

. 95 F 

■ RKl.'N». 

. 95 F 

DAREnf. 

. 95 F 

• ANS LAlR». 

. 89F 

• "SiR BÜERHAAVE». 

145 F 


. 89F 

: vDPEX PLANET . ... 

. 79 F 

-'.AN». 

. 85 F 

• ;:a(jH il». 

145 F 

B ANDER» . 

. 85 F 

■SAN TORCH». 

. 95 F 

i i'RATOR». 

95 F 

\ 'ANS FRONTIERES» 

. 89 F 

.. rider». 

. 85 F 

••AM1’S GOLF». 

. 89 F 

S.RnOARD (GOLF)» . 

. 89 F 

VAX». 

. 89 F 

\k:e» . 

. 85 F 

'. ’rOLY FR. 

175 F 

: ; ROY» . 

. 89 F 

: rading cpy.nk ... 

. 95 F 

vTROBE» . 

. 95 F 

. PLANET». 

. 89 F 

: CT ION». 

. 89 F 


119F 

i.XTRIC». 

119 F 

SERVICE» . 

. 89 F 

: : hawk». 

. 85 F 

: S i*. *WL . 

. 85 F 

i.i: OF TERROR» . . . 

. 95 F 

ONIESnf. 

. 99F 

•R::AT ESCAPE» . . 

. 89 F 

; i l RN ni the FIS I nk 

. 95 F 

N X K». 

119 F 

. MATA JUDO» . ... 

. 89 F 

KONG FU 11». 

. 89 F 


SOLDES 35 F' 


\ MNiuni ixmcNh 5MTUA» .VI r I (ACX THF NIPPFRvi: 1IQF I , 

:ïï“" MK ‘s~=s~£, 

- SPITFIRE 40 .90 F logiciel à valoir sur la carte de fidélité. di'pomhlc. 

Votre jeu chez vous dans 48 h* en téléphonant au 93.42.57.12 

.-ont programme disponible en stock, noies telep/ioner pour connaiirc In disponibilité exacte. Emoi le pur même de In réception de la commande par paquet poste urgent 


KNIGHT LOREnf 
NIGHT SHADEnk 
RAID» 


—HIT PARADE — 

3D GRAND PRIXnf.89 F 

BAT MANnf .85 F 

BIGGLES» .95 F 

BOMB JACK» .89 F 

CAULDRON» .79 F 

CAULDRON 2».79 F 

COMMANDO» .83 F 

CONTAMINATION» .... 110F 
CRAFTON ET XUNK» ... 110F 

DESERT FOX».89 F 

EDEN BLUES». 110 F 

GHOST N GOBBELINSnf ... 85 F 

(jREEN BERET».83 F 

GUNFRIGHTnf .89 F 

HYPERSPORTSnf .89 F 

IMPOSSIBLE MISSIONnf .... 89 F 

1NTERNATL KARATE.93 F 

JACK THE NIPPER».83 F 

KNIGHT G AMES».83 F 

KUNG FU MASTER».89 F 

MOVŒnf .89 F 

NEXUSnk .95 F 

PING PONG».■. - 79 F 

RAMBOnf.79 F 

SCRABBLE FR» . 175 F 

STRIKE FORCE HARRIER» . 95 F 

THE DAMBUSTERS».9? F 

THE WAY OF THE TIGER» . 95 F 

TOMAHAWK» .95 F 

Vü» .89 F 

WINTER GAMES».95 F 

WORLD CUP 86».95 F 

ZORRO» .95 F 

AIRWOLF .99 F 

BACK TO THE FUTURE ... 95 F 
BATAILLE d'Angleterre» . . HO F 
BATAILLE pour Midway» . MO F 

BOUNDER» .85 F 

COLOSSUS CHESS 4.119 F 

COMPUTER 10 HITS VOLl . 95 F 

EVE SPY. 55 F 

FAIRLIGHT .95 F 

FIGHTER PILOT» .89 F 

FIGHT1NG WARRIOR» ... 85 F 
FRANCK BRUNO BOXING» 95 F 

FRIDAY THE 13TH.89 F 

GESTE D’ARTILLAC» ... 245 F 

HACKER».95 F 

HEAVY ON THE MAGIC ... 95 F 
H1GHWAY EN'COUNTER . . 99 F 

HOLD UP» . 105 F 

JUMPJET . 105 F 

L’HERITAGE» .169 F 

LORD OF THE RING. 185 F 

MACADAM BUMPER» . . 120 F 

MANDRAGORE».195 F 

MASTER OF THE LAMPS» 95 F 

M IN DS H ADO W .85 F 

MISSION DELTA». 105 F 

MISSION ELEVATOR» ... 109 F 
MONTY ON THE RUN» .. 89 F 
OMEGA planete invisible» . 249 F 

PACIFIC». MO F 

RALLY II».95 F 

RED HAWKnf.JM F 

RESCUE ON FRACTALUS.» 95 F 

ROCK'N WRESTLE».85 F 

ROCKY HORROR SHOW .. 89 F 

SABOTEUR .89 F 

SKYFOX» .95 F 

SORCERYnf.89 F 

SPINDIZZY» .95 F 

SPITFIRE 40 . 90 F 


SPY VS SPY».90 F 

SPY TREK. 55 F 

STARQUAKE . 75 F 

TANK COMMANDER» ... 95 F 

TAUCET1.89 F 

THEATRE EUROPE»..-. 110 F 
THE WAY OF EXPL F1ST» . 85 F 

TITAN IC s F .95 F 

TLL .90 F 





AMSTRAD KNIGHT GAMES». 1551 

DISQUETTES fu master» ... - jJJ ] 

SUPER PROMOTION SS 4 a.,:.lus 


3 DISQUETTES 
VIERGES 99 F 

NOUVEAUTES I 

AFFAIRE SYDNEY». 195 F 

CRYSTAL CASTLE».145 F 

DESERT FOX.1)9 F 

DRAGONS LAIRnf.139 F 

1942». D9F 

GALVAN».. 1)9 F 

HARRY ET HARRYnf.169 F 

HIGHLANDER» .139 F 

HUMAN TORCH». 1)9 F 

INFILTRATOR». 1)9 F 

JEUX SANS FRONTIERES» 139 F 

KNIGHT RIDER.».135 F 

KONAMI’S GOLF». 135 F 

LEADER BOARD». 139 F 

MAG MAX». 139 F 

MIAMI VICE». 139 F 

MONOPOLY FR». 245 F 

PAPER BOY». 135 F 

REBEL PIANET». 135 F 

REVOLUTION». 139F 

ROBBOT» . 169 F 

SCRAM» . 165 F 

S1LENT SERVICE». 139 F 

STREET HAWK». 133 F 

TEMPLE OFTERROR» ... 135F 
THE DAMBUSTERS» .... 145 F 

THE GOON1ES».145 F 

THE GREAT ESCAPE» ... 145 F 
THE RETURN oûhe FIST» . 145 F 

TOBROUCK».169 F 

YE AR KUNG FU 11». 139 F 

- HIT PARADE — 

5D GRAND PRIX. 140 F 

BAT MAN». 150 F 

BATAILLE d'Angleterre»- .... 195 
BAI AILLE pour Midwav» . - 195 F 

BIGGLES» .139 F 

BOMB JACKsf. 139 F 

BOUNDER» . 125 F 

CAULDRON» . 125 F 

CAULDRON 2». 130 F 

COMMANDO». 159F 

CONTAMINATION» .... 190 F 
CRAFTON ET XUNK» ... 190 F 

EDEN BLUES».190 F 

GHOST N GOBBELINSnf .. 139 F 

GREEN BERET». 135 F 

HYPERSPORTS». 125 F 


KNIGHT GAMES» . 135 F 

KUNG FU MASTER» .... 135F 

MOVIE» . 139 F 

MULT1PLAN» . 498 F 

NEXUS». 145 F 

PACIFIC».139 F 

PING PONG».129 F 

SCRABBLE FR». 220 F 

SORCERY» . 129 F 

STRIKE FORCE HARRIER» 129 F 
THE WAY OF THE TIGER» 120 F 

THEATRE EUROPE».185 F 

Vü!». 139 F 

WINTER GAMES» . 145 F 

WORLD CUP 86 Foot» .... 145 F 

YE AR KUNG FU». 119 F 

ZOMBI». 165 F 

AFFAIRE VERA CRUZ» ... 195 F 

AIRWOLF . 125 F 

AL1F.N H1GHWAYS . 129 F 

BACK TO THE FUTURE .. 145 F 

COLOSSUS CHESS 4. 169 F 

D BASE 11». 650 F 

EXPL fia + F1GHT Wamor» 185 F 

FAIRLIGHT. 145 F 

FIGHTER PILOT». 129 F 

FRANK BRUNO BOXING» . 145 F 
GESTE D’ARTILLAC» .... 295 F 

HARRIER ATFACK . 125 F 

HIGHWAY EN'COUNTER .. 139 F 

JUMï’jET» . 155 F 

L'HERITAGE» .189 F 

MAC GUIGUAN BOXING» H5 F 
MACADAM BUMPER»- ... 175 F 

MINDSHADOW» . 125 F 

MISSION DELTA» .175 F 

MISSION ELEVATOR»... 159F 
MONTY ON THE RUN» . . 125 F 

MULT1FLAN». 498 F 

OMEGA planète invisible» . - 249 F 

RED ARROWS» . 135 F 

RESCUE ON FRACTALUS» 145 F 

SKYFOX». 145 F 

SPINDIZZY» . 145 F 

SUBTERRANEAN STRIKER 125 F 
TANK COMMANDER» ... 135 F 

TAUCET1. 145 F 

TLL». 139 F 

TOMAHAWK». 145 F 

WHO DARES WIN II. 145 F 

ZORRO» . 145 F 

NOUVEAU: M1CROMANIA A PARIS ! 

* Printemps Haussmann 

• Hachette St Michel, 29, bd. St Michel 

Démonstration des jeux sur écran vidée 

<iB Le pi.iciamnw propice Jan> iritt li'ir riant pnniipalcmr.il 

d'importation lineuc J'Anjlcieirc. ic' noiuer J'imiruinnm som en 

anglais "NK" a uiic J‘u» tmr indique qu'une notnc en iranien w 

disponible. 


BON de COMMANDE EXPRESS à envoyer à MICROMAN1A - B.P. 3 - 06740 CHATEAUNEUF 


>g 


TITRES 


PRIX 


ADRESSE 


irricipation aux frais de port et d’emballage 


(.visez cassette □ Disk D Total à payer - 


NOUVEAU PAYEZ PAR CARTE BLEUE / 


+ 15 F 




.-r : je joins CD un chèque bancaire □ CCP Q mandat-lettre □ je préféré payer au facteur à réxpdtm (en ajoutant ISF paa frais de tembamement) 

adirum* de ina. ATARI 600 ATARI 800 AMSTRAD TO7/70 MOS ORJC MSX C64 SPECTRUM 






































































































































































117 AVENUE DE VILLIERS PARIS 17 # TEL: 47 66 11 77 METRO PEREIRE. BUS 03 
OUVERT 7 JOURS SUR 7: LUNDI DE I4H A I9H. DU MARDI AU SAMEDI IOH A 20H. DIMANCHE DE 14H A 18H 
NOCTURNES AU MOIS DE DECEMBRE LES MERCREDI ET SAMEDI JUSQU'A 22H.LE 25/12 ET 1/1 DE 14H A I8H 


GAMME COMMODORE 64 

GAMME COMMODORE 128 ’j 

1 

C64 Pal 

1890 

13 

C128 F^+JANE 

2990 ] 

2 

C64 Secam pente! 

2190 

14 

C128Seeam pente! 

3290 1 

3 

LecteurK7 1530 

320 

15 

LecteurDisq 1571 

2990 

4 

LecteurDiaq 1541 

1890 

18 

Moniteur htereeolution 

2990 

5 

Moniteurvert+eon 

990 

17 

C128D 

5490 

6 Moniteurcouleur 

1990 

7 

Àdapt Pal Secam 

490 


C64 + Lt et 1530 

C64 Nauveac 


Cl 28 + Lect K7 

Cl 28 + 1541 

♦Moniteur Coul 

+ 1541 


♦Moniteur Coul 

♦Moniteur Coul 

+1 JOY + JEUX 

+1 JOY + JEUX 


+1 JOY + JEUX 

+1 JOY + JEUX 

3890 Frs 

3690 Frs 


4990 Frs 

6790 Frs 


COMMODORE 64/128 C/D 


INFILTRATOR 
FIST II 
PAPER BOY 
S LENT SERVICE 
LEADER BOARD 
SOLD A MLLION III 
UCHIMATA 
VORLDGAMES 
1942 

DRAGONS LAIR 
HACKER II 

GAME MAKER SPORT 

OAME MAKER SC. FICTION 

BOBBY BEARIWj 

FL00PY64 

ANTIRIAD 

HIGHLANDER 

ARCADE KING 


95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
95F/139F 
/ 39F 
95F/139F 
95F/139F 
95F/139F 


DES CENTAINES DE TITRES 
DISPONIBLES SUR AMSTRAD 
C64 ET ATARI XL/XE 
TEL 47 66 11 77 




TOUTE LA GAMME 
AMSTRAD DISPO A DES 
PRIX D’ENFER 
TEL 47 66 11 77 





AMIGA 

ENCORE MOINS CHER 
9990 Frs TTC 


CHESS MASTER 2000 

650 FRS 

THEPAVN 

229 FRS 

DELUXE VIDEO 

890 FRS 

DELUXE PAINT 

890 FRS 

VP 

1790 FRS 

DEEP SP ACE 

350 FRS 

ARENA 

300 FRS 

LEADER BOARD 

350 FRS 

LATTICEC 

990 FRS 

ASSEMBLEUR 

590 FRS 

PASCAL 

790 FRS 


LOGICIELS AMSTRAD 


C/D 


SOLD A MLLION III 
GALVAN 
LEADER BOARD 
PROOIGY 
DRU B) 

LIGHT FORCE 
STREET HAVK 
TEMPEST 
REVOLUTION 
S LENT SERVICE 
ZOMBIE 
TRPACK FL 


119/145 
95/139 
95/139 
95/139 
95/139 
95/139 
95/139 
95/139 
95/139 
95/139 
/159 
139/199 


ACHETEZ VOTRE ORDINATEUR 
A CREDIT: TEG 18,24% A 
PARTIR DE 1500F D'ACHAT 

•KKHKHHK>DM«KKHHKHHH^ 

LIVRAISON PARIS GRATUITE 
POUR 2000FRS D'ACHAT 



ATARI 130XE + PERIPHERIQUES * 

.vvrvvr^uvvv^Jv\rin/in/uvijxrLAnrfviJVVvvuiJ^nrtmxivvvw-*j uuuvuuvuvvn/uui •& 


1290F 

2390F 

990F 


130XE + LECT K7 ♦ 10 L06 
1130XE + LECT DISQ + 10 L06 
OPTION nONITEURHONOCHR. 
1029 


IMPRIMANTE 


14900 


Drive ATARI 1050 
4- 10 LOGICKLS 
Educatifs ♦ Jeux 
h Français 

1590 Frs 


Lecteur K7 ATARI 
* 10 LOGICIELS 
Educatifs * Jeux 
en Français 

390 Frs 


LOG A 29Frs PIECE 

LOG A 49Frs PIECE 

JOUER DU PIANO 

K7 

JOUER DU PIANO 

DO 

HICTORYDICTORY 

K7 

QUESTIONfREPONSE 

DO 

MATHEMATIC 

K7 

DRAPEAUX EUROPE 

DO 

CUBES 

K7 

GEOGRAPHIE 

DO 

COMMENT COMPTER 

K7 

BOITE A MUSIQUE 

DO 

BOITE A MUSIQUE 

K7 

WORDGO 

DÛ 

CULTURE PMS1QUE 

DO 

CONST ELECTRIQUE 

DO 

CACHE CACHE MOTS 

DO 

GOLF BARRE 

DO 

INITIATION BASIC 1 

K7 

EXTRATERRESTRES 

DO 

INITIATION BASIC 2 

K7 

LESBOI'æONS 

DO 

INITIATION BASIC 3 

K7 

CALCULALGEBRE 

DQ 

MIMSTRE E1ÆRGIE 

K7 

ENIGME TRIANGLE 

DO 

CENTRAL NUCLEAIR 

K7 

CAMELEON 

DO 

CROCODIL FLIPFLOP 

K7 

LE PROMOTEUR 

DO 

GOLF/BARRE 

K7 

CODEWRJTER 

DQ 

INSECTIVORES 

K7 

ADVENTUREWRITER 

DO 

LES BONBONS 

K7 

KEYWORLD1 

DO 


LES MEILLEURES K7 
SUR ATARI XL/XE 


LES MEILLEURES DISQ 
SUR ATARI XL/XE 


RAIDOVER 

99 F 

LEADER BOARD 

149 F 

IffTERN KARATE 

69 F 

WORLD KARATE 

329 F 

TRAIL BLAZER 

99 F 

RAID OVER MOSCOU* 


COMETE GAME 

99 F 

BEACH HEAD 1 ET 2 

199 F 

R OAD RACE 

99 F 

SILENTSERVICE 

149 F 

HARD BALL 

99 F 

HARD BALL 

149 F 

SMASH HIT 6 

125 F 

ULTIMAIV 

179 F 


TOUTE LA GAMME ST DISPONIBLE 

il nous faudrait 3 pages pour en 
parler alors VENEZ DECOUVRIR LES 
520STF, 1040STF, Périphériques 
et ses 300 Logiciels 


CLIENTS DE PROVINCE: livraison 

GRATUITE AU DELA DE 3000FRS D'ACHAT PAR 
_ CHEQUE ET CARTE BLEUE 





































































SPECIAL 

ABONNEMENT 



MICRO LOISIRS 


VITE ABONNEZ-VOUS 

I mi 11 numéros innr AUL|Eu 

ANPOURIuUI 285F 


ET RECEVEZ EN CADEAU UN SUPERBE POSTER 



|| Je désire un 

I abonnement d'essai 
Wwl d'un an à TILT. 

Je bénéficie de conditions excep¬ 
tionnelles et de plus je recevrai 
gratuitement en cadeau un 
superbe poster d'une illustration 
de TILT, format 48 x 64cm qui 
me parviendra roulé sous tube 
hermétique. 


PROFITEZ DE CETTE OFFRE EXCEPTIONNELLE 
POUR VOUS ABONNER DÈS AUJOURD'HUI 


BON POUR UN 
ABONNEMENT D'ESSAI 

À COMPLETER ET RETOURNER À TILT 
BP 73, 77987 SAINT FARGEAU PTHIERRY CEDEX 



Je désire m'abonner à TILT pour un an. 
Je recevrai 11 numéros normaux + 
1 numéro hors série : le Guide 1988 des 
Jeux et Micro. 


DE PLUS TILT M'OFFRE GRATUITEMENT EN I 
CADEAU UN SÜPERBE POSTER EXCLUSIF TILT I 


□ 

□ 


Ci-joint mon règlement à l'ordre de TILT 
Je préfère régler plus tard sur facture 


NOM _ 

PRÉNOM_ 

N°_RUE 


CODE POSTAL L. J 1 I 1 I 
VILLE_ 


N'OUBLIEZ PAS: 


Nous vous enverrons votre 
cadeau dès réception de votre règlement. 


(Offre exclusivement réservée aux nouveaux abonnés). 

* Tarif étranger : + 87 F. Frais de port Train/Bateau. 

Avion : nous consulter.. mj.87 
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CHAQUE MOIS 

TOUS UES LOGICIELS DE JEUX, 
D'AVENTURE, DE SIMULATION, 

DE CRtATION GRAPHIQUE ET MUSICALE, 
C'EST DANS 


teste pour vous impitoyablement tous 
les nouveaux logiciels et vous donne son 
hit parade. 

Dans chaque numéro,des jeux à program¬ 
mer vous-mêmes, des bancs d'essai soft et 
micro pour savoir acheter sans vous tromper 
et SOS Aventure qui vous aide à trouver les 
solutions des jeux les plus inextricables. 

Chaque mois aussi un grand dossier et dans 
Tam-Tam-Soft toute l'actualité micro. 












